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 |
Partager