Discussion :

[dguff]

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 :

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

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

[SilkyRoad]

bonjour

Je voudrais envoyer un mail dans excel

Quel type de procédure utilises tu ?


michel

[dguff]

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 :

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

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

[SilkyRoad]

bonjour

Tu peux utiliser cette adaptation

Code :

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

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

[dguff]

Bonjour,

Ca marche

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

Merci d'avance.
David

[SilkyRoad]

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 :

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

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 :

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

    .Item.To = Dest

michel