Macro : page excel a envoyé depuis une liste de destinataire située dans une autre page
Bonjour a tous!
Comment fais t on svp avec le code ci-dessous pour envoyer la page excel "sheet1" a une liste de destinataire ( une vingtaine) situé dans la page sheet2 A1:A20?
Merci bcp :)
;)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub Envoi()
Dim Dest(3) As String, Sujet As String
Sheets("Synthese").Select 'Saisir le nom exact la feuille du classeur
ActiveSheet.Copy 'crée une copie de la feuille active
Dest(0) = "xxxxxx@aaaa.fr" 'Saisir l'adresse mail 1
Dest(1) = "yyyyyyy@aaaa.fr.fr" 'Saisir l'adresse mail 2
Dest(2) = "ZZZZZ@aaaa.fr" 'Saisir l'adresse mail 2
Sujet = "Envoi de la feuille de synthèse "
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
MsgBox ("Synthèse envoyée")
End Sub |
