Pierre Fauconnier

Je ne sais pas si je sors du sujet, mais j'ai l'habitude de sélectionner ma colonne d’adresse mail dans Excel et de la coller directement dans la zone d'adresse du message. Ne pas avoir peur de la disposition dans Outlook, au bout de quelques secondes il dispose correctement les adresses.

Bonjour Pierre,

merci pour l'info et le partage... et avec un tout petit peu de code et on peut envoyer un mail via Outlook en ayant sélectionné la liste de diffusion à partir d'Excel...
Superbe travail.
Curt

Salut

Envoyé par ec

Je ne sais pas si je sors du sujet, mais j'ai l'habitude de sélectionner ma colonne d’adresse mail dans Excel et de la coller directement dans la zone d'adresse du message. Ne pas avoir peur de la disposition dans Outlook, au bout de quelques secondes il dispose correctement les adresses.

Oui, c'est aussi une astuce... Mais si on les souhaites filtrées, triées, uniques, ça demande x manipulations à refaire à chaque fois. Avec une formule, si tu veux d'abord avoir celles d'un domaine, puis celle d'un autre, il te suffit de modifier le domaine dans la cellule où tu l'auras mentionné. Ce sera la seule manipulation à réaliser pour obtenir une autre liste.

De plus, j'ai pris ici des adresses mail à titre d'exemple, mais tu peux envisager ces fonctions pour d'autres situations. En formation, j'ai ainsi pu montrer que l'on pouvait choisir une série de factures à valider dans Excel sur base de leurs numéros, puis créer la liste avec le séparateur pour l'envoyer dans un champ de saisie d'un CRM pour une validation "à la volée". Ce qu'il faut retenir ici, c'est plus l'arrivée de nouvelles fonctions qui ouvrent à de nouvelles possibilités, sans trop se focaliser sur la spécificité d'adresses envoyées dans Outlook

Envoyé par curt

[...]

Salut Curt,

Merci pour ton appréciation et bon weekend

Bonsoir Pierre,

Je viens de consulter ce billet.
Très belle fonction qui intègre les WorksheetFunction de VBA. Sauf erreur, toutes les fonctions natives du tableur ne le sont pas. J'ai donc vérifié.

Dans ma contribution,

ces 4 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim tb() As Variant
ReDim tb(1 To rng_dest.Count)
tb = Application.Transpose(rng_dest)

liste_adresses = Join(tb, ";")

sont remplacées par 1 seule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

liste_adresses = Application.WorksheetFunction.TextJoin(";", True, rng_dest)

ou bien, si l'on intègre les 2 fonctions citées TRIER et UNIQUE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

liste_adresses = Evaluate("=TEXTJOIN("";"",TRUE,SORT(UNIQUE(" & rng_dest.Address & ")))")

Je m'empresse donc de l'actualiser.

Une remarque au demeurant,

TRI retourne une erreur. Ce car Excel considère, du moins sur sa version 2016, comme "taux de rendement interne"
Il me faut écrire TRIER

=JOINDRE.TEXTE(";";VRAI;TRIER(UNIQUE(T_liste2[détail_liste])))

Merci.