E
elno
Guest
Bonjour tout le monde
voila j ai trouvé ce programme sur le site malheureusement je ne souhaiterai pas spécifié l adresse mail dans la macro mais plutot dans une cellule de ma feuille excel (en F42 par exemple)
Malheureusement je ne sais pas programmer en vba et je n'y arrive pas
Sub envoimail()
'copie la feuille dans un nouveau classeur
ThisWorkbook.Sheets('MAIL').Copy
'Sauve le classeur
ActiveWorkbook.SaveAs 'C:\\Temp\\Suivi.xls'
'Envoi le classeur par mail
ActiveWorkbook.SendMail 'elno4@hotmail.com'
'Temporisation de 15 sec
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 15
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
MsgBox 'Le message est envoyé'
'Ferme sans sauver
ActiveWorkbook.Close False
'Supprime le classeur temp crée
Kill 'C:\\Temp\\*.xls'
End Sub
voila j ai trouvé ce programme sur le site malheureusement je ne souhaiterai pas spécifié l adresse mail dans la macro mais plutot dans une cellule de ma feuille excel (en F42 par exemple)
Malheureusement je ne sais pas programmer en vba et je n'y arrive pas
Sub envoimail()
'copie la feuille dans un nouveau classeur
ThisWorkbook.Sheets('MAIL').Copy
'Sauve le classeur
ActiveWorkbook.SaveAs 'C:\\Temp\\Suivi.xls'
'Envoi le classeur par mail
ActiveWorkbook.SendMail 'elno4@hotmail.com'
'Temporisation de 15 sec
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 15
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
MsgBox 'Le message est envoyé'
'Ferme sans sauver
ActiveWorkbook.Close False
'Supprime le classeur temp crée
Kill 'C:\\Temp\\*.xls'
End Sub