Classeur excel ... eMail

[jemid]

Bonjour à tous,

J'ai un classeur excel avec 500 adresses mails insérées dans la colonne A, donc sur 501 lignes.
J'aimerais envoyer un mail groupé a ces 500 personnes mais je ne vois pas comment faire... Faire un copier coller de chaque nom et séparé chaque email par une virgule me prendrait un temps fou!
Si quelqu'un à une solution, merci de m'en faire part...

@ bientôt

 

[suistrop]

Re : Classeur excel ... eMail

Bonjour,

en vba dans un module un code du type :

Sub cartman()
Application.ScreenUpdating = False
Cells(1, 2) = ""
For i = 2 To Range("A65536").End(xlUp).Row
Cells(1, 2) = Cells(1, 2) & ";" & Cells(i, 1)
Next i
End Sub

Les mails se mettent dans la cellule B1, il y a un ; en trop au début.


Cordialement

 

[Roland_M]

Re : Classeur excel ... eMail

bonsoir à tous

salut à toi suistrop

pour éviter le ; en trop

Sub cartman()
Application.ScreenUpdating = False
X$ = ""
For I = 2 To Range("A65536").End(xlUp).Row
 X$ = X$ & Cells(I, 1) & ";"
Next I
Cells(1, 2) = Left(X$, Len(X$) - 1): X$ = ""
End Sub

 

[jemid]

Re : Classeur excel ... eMail

Merci à tous les deux! C'est génial!