Extraire les adresses mail

Bonjour,

Tous les membres d'une association sont listés dans un tableau Excel.

Une colonne contient, pour certains, leur adresse mail.

je souhaite, si cela est possible, récupérer toutes les adresses afin de faire un mailing par Mozzilla Thunderbird.

Cela peut-il être fait ? et si oui, comment?

Je n'ai pas encore trouvé la solution.

D'avance, grand merci à qui me répondra.

Bonjour

je souhaite, si cela est possible, récupérer toutes les adresses

Tu veux les récupérer où ?

Si c'est dans une colonne d'un fichier Excel, fais un tri sur ta colonne.

Si c'est ailleurs, précise

De toute façon, si c'est autrement que par un tri ou un filtre, il nous faut connaître la structure de ton tableau.

Donne un exemple sur un fichier Excel.

Cordialement

Merci Amadéus pour ta réponse.

Je te joins un extrait de mon tableau ( le tableau réel comporte 350 entrées)

Le but ultime est de récupérer dans le carnet d'adresse de Thunderbird les adresses mail qui se trouvent dans la colonne "O" afin de faire une liste de diffusion pour un mailing.

J'aurais souhaiter si cela est possible récupérer toutes les adresses d'un coup plutôt que de les prendre une par une.

Je me souviens avoir lu quelque part qu'on peut construire une macro pour y arriver mais je ne retrouve pas l'info.

Si tu peux m'éclairer sur le sujet, ce serait sympa.

Bien cordialement.

Bonjour,

Oui, une macro serait faire çà,

précise ou mieux envoie une feuille avec les résultats escomptés

à quoi sert ici la feuille "Encaissement" ?

Amicalement

Claude

Bonjour,

Regarde ce lien --> https://forum.excel-pratique.com/excel/insertion-automatique-d-adresses-electroniques-t16935-10.html#p99030

Sinon tu peux essayer ceci :

Sub EnvoiMail()
'Macro dan le 13/08/2010
Dim MailAd As String, MailAd1 As String, Subj As String, URLto As String
Dim nblig As Long
Dim i As Integer
nblig = ActiveSheet.Rows.Count
For i = Range("O" & nblig).End(xlUp).Row To 2 Step -1
If Range("O" & i) <> "" Then
MailAd = Range("O" & i) & ";"
MailAd1 = MailAd & MailAd1
End If
Next i
URLto = "mailto:" & MailAd1 & "?subject=" & Subj
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Code à placer dans un module en VBA puis dessiner un bouton sur ta feuille et lui associer cette macro.

A vérifier si cela fonctionne avec ta messagerie.

Amicalement

Bonjour dan,

J'ai essayé le code que tu me proposes, cela coince sur la ligne suivante:

ActiveWorkbook.FollowHyperlink Address:=URLto

Amicalement

Maurice

Bonjour,

J'ai résolu mon problème de la manière suivante:

J'ai filtré et copié les adresses mail, je les ai collées dans un classeur que j'ai enregistré au format .csv

Ensuite, j'ai pu importer le fichier dans le carnet d'adresses de Thunderbird.

Merci pour vos conseils