Extraction d'e_mails pour envoi

[rapha5]

Bonjour,
Je suis novice en la matière et n'ai trouvé que des niveaux avancés d'utilisation excel sans trouver réponse à ma question. Je cherche simplement à extraire des adresses e-mails contenues dans une colonne de mon fichier excel pour envoyer un mail à toutes ces adresses en Cci. Quelle manipulation dois je effectuer?

Merci

 

[Kiseki]

Re : Extraction d'e_mails pour envoi

Bonjour,

Un fichier est intéressant pour travailler et être sûr de ce que l'on fait.

Sinon pour l'extraire : (Une cellule peut contenir : 32 767 Caractères)

Normalement ceci fait l'affaire :

Sub ExtractEmail()
Dim Colonne As Range, Cel As Range, Liste As String

Set Colonne = Sheets("Feuil1").Range("F:F").SpecialCells(xlCellTypeConstants, 2)

For Each Cel In Colonne
    Liste = Liste & Cel & ","
Next Cel

'Copy la liste dans une cellule
With Sheets("Feuil1").Range("A1")
    .Value = Liste
    .WrapText = True
    .Offset(1) = "Nbrs Car : " & Len(Liste)
End With
End Sub

Si tu devait dépasser ce nombre de caractère (pour 2007, les autres je ne sait pas), il suffirait d'adapter en plusieurs cellules.

Tu peux aussi la mettre direct dans outlook mais je ne connais pas le code.

Il te suffit de copier la cellule dans le champ que tu veux.


On peux aussi mettre cette liste dans le presse-papier et tu n'aurait plus qu'à coller, il faut juste activer une référence.

 

[Modeste]

Re : Extraction d'e_mails pour envoi

Bonjour rapha5 et bienvenue!

Je ne saurais trop te recommander de prendre le temps de lire Lien supprimé, puis de vérifier si ta demande est aussi conforme que possible à ce que tu auras lu.
Note bien que personne ne te reprochera une imprécision ou un petit oubli, mais il faudrait que tu nous donnes un peu de matière, si tu veux qu'on puisse proposer l'une ou l'autre piste.

A bientôt,

Edit: bonjour Kiseki

 

[rapha5]

Re : Extraction d'e_mails pour envoi

Bonjour,

Merci de la réponse mais j'avoue ne pas suivre. Je ne sais mm pas de qu'est une code VBA. Ci joint mon fichier type. La colonne mail n'est pas toujours renseignée.

Cdt

 

[Kiseki]

Re : Extraction d'e_mails pour envoi

Bonjour Modeste.

Quand tu à ton classeur ouvert tu fait ALT+F11, ajoute un MODULE, dans ce MODULE colle ceci :

Function RegroupMail(Plage As Range) As String
Dim Cel As Range
For Each Cel In Plage
    If Len(Cel) > 4 Then RegroupMail = RegroupMail & Cel & ","
Next Cel
If Len(RegroupMail) > 32767 Then RegroupMail = "!!!Utiliser une plage plus courte!!!"
End Function

[EDIT]Plus court et plus rapide.
Ensuite enregistre en tant que fichier prenant en compte les macros (.xlsm).

Tu ferme et réouvre ton fichier, active les macros une fois ouvert (je te laisse te renseigner à ce sujet, facile à trouver)
Ce lien n'existe plus

Ensuite sur ta feuille il te suffit de mettre la fonction : (tu peux renvoyer directement à la ligne dans la cellule pour que ça ne parte pas en longueur.
=RegroupMail(F2:F5)

 

[rapha5]

Re : Extraction d'e_mails pour envoi

OK! Merci pour votre aide.

 

[Kiseki]

Re : Extraction d'e_mails pour envoi

Beaucoup plus rapide en utilisant un tableau (la différence est surtout importante pour de grande plage).

Function RegroupMail(Plage As Variant) As String
Dim Text As Variant
For Each Text In Plage
    If Len(Text) > 4 Then RegroupMail = RegroupMail & Text & ","
Next Text
If Len(RegroupMail) > 32767 Then RegroupMail = "!!!Utiliser une plage plus courte!!!"
End Function