Liste de diffusion Mail selon plage de cellule variable

Bonjour,

Je voudrais envoyer un mail dans excel à une liste de destinataire selon une plage de cellule variable. J'ai donc essayé quelque chose du style :

Code:

---

1 2 3 4 5 6

Do While Range("f" & i).Value <> Empty If Range("f" & i).Value <> Empty Then .Item.to = Range("f" & i).Value i = i + 1 End If Loop

---

Cependant il ne m'ajoute pas les destinataires il me les remplace au fur et à mesure.

G essayé le .item.to.add mais il semblerait que ça soit pour ajouter des contats dans le carnet d'adresse.

Pouvez vous m'aider.
Merci d'avance.
David

bonjour

Citation:

---

Je voudrais envoyer un mail dans excel

---

Quel type de procédure utilises tu ?


michel

Peux tu me dire ce que tu appelles procédure car je débute en vba et ne connais pas très bien les normes de ce langage.
En fait j'utilise le petit bout de code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub envoiPlageCellules_Excel2002() 'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644 ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer ActiveWorkbook.EnvelopeVisible = True   With ActiveSheet.MailEnvelope .Introduction = "bonjour , ci joint les données ..." .Item.To = "destinataire@provider.fr" .Item.Subject = "le sujet" .Item.Send End With End Sub

---

En cherchant un peu j'ai echange le do while par un for each mais cela ne change rien.


Merci d'avance.
David

bonjour

Tu peux utiliser cette adaptation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub envoiPlageCellules_Excel2002() Dim Dest As String Dim Cell As Range   For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row) Dest = Dest & ";" & Cell Next Cell   'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644 ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer ActiveWorkbook.EnvelopeVisible = True   With ActiveSheet.MailEnvelope .Introduction = "bonjour , ci joint les données ..." .Item.To = Dest .Item.Subject = "le sujet" .Item.Send End With End Sub

---

bonne journée
michel

Bonjour,

Ca marche :D

Peux tu m'expliquer pourquoi ca ne marchait avec ma façon de faire.

Merci d'avance.
David

bonjour


à chaque itération de la boucle tu écrasais l'élément précédent.


La solution proposée crée une chaine de caractère composée de toutes les adresses, séparées par un point-virgule ";"

Code:

---

1 2 3

For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row) Dest = Dest & ";" & Cell Next Cell

---

Et cette chaine est ensuite utilisée pour envoyer le mail

Code:

---

.Item.To = Dest

---

michel