Sub ProgrammerDate() 'programme l'envoi pour le lundi suivant à 09:00
Dim test As Boolean, dat As Date
test = Weekday(Date, 2) = 1 And Time < TimeValue("9:0")
dat = Date + IIf(test, 0, 8 - Weekday(Date, 2)) + TimeValue("9:0")
Sheets("Ventes").Range("G6") = dat
Application.OnTime dat, "Envoi" 'programme l'envoi différé
End Sub
Sub Envoi() 'envoi le message
Dim Adresse As String, Objet As String, Text As String
Adresse = "xyz@hotmail.com;abc@gmail.com" 'à adapter
Objet = "Ventes"
Text = "Le total des ventes est : " & Sheets("Ventes").Range("B6")
SendKeys "{TAB 3}{DEL}{TAB}" & Text & "[COLOR="Red"]%v[/COLOR]%{F4}" 'la touche {DEL} supprime la pièce jointe
Application.Dialogs(xlDialogSendMail).Show Adresse, Objet
ProgrammerDate 'programme une nouvelle date
End Sub