Bonjour,

Je souhaite envoyer plusieurs adresses emails à partir du code email ci-dessous.
Aujourd'hui l'adresse est dans le code.
Ce code fonctionne bien mais je souhaite modifier le code et prendre les adresses indiquées dans une feuille excel (3 emails).

Merci d'avance pour votre aide.

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
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
' ENVOI PAR E-MAIL du formulaire:
 
Dim MonOutlook As Object
Dim MonMessage As Object
 
Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ""
MonTo = "thierry.dupont@gmail.com"
 
Dim mail
'La je met la cellule A1 c'est ici que je voudrais prendre une plage de cellule
mail = Range("A1")
 
'Préparation du mail
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = MonTo
MonMessage.Subject = "Mon sujet_"
 
Corps = Corps & mail
 
MonMessage.body = Corps
MonMessage.Send
Set MonOutlook = Nothing
 
End Sub