Bonjour à tous,
j'ai besoin d'aide SVP
mon ti problème
j'ai créé un VBA "envoi mail", mais les destinataires sont dans le corps du code,ce qui, en cas de changement posera un problème pour l'utilisateur. Est ce qu'il existe un VBA qui irai chercher les destinataires dans une liste (4 personnes) dans, par exemple l'onglet paramètres
Sub envoie_une_page_3()
ActiveWorkbook.SaveAs Filename:="D:\Bordereau gestion absences Andilly\ARCHIVES_" & Format(DateAdd("D", -1, Date), "DDMMYYYY") & ".xls"
Sheets("janvier s").Copy
Cells.Copy
Cells.PasteSpecial (xlPasteValues)
ActiveWorkbook.SendMail "xxxx.xxxxx@laposte.net", "collecte activité mensuelle "
End Sub
merci beaucoup à vous
cordialement
j'ai besoin d'aide SVP
mon ti problème
j'ai créé un VBA "envoi mail", mais les destinataires sont dans le corps du code,ce qui, en cas de changement posera un problème pour l'utilisateur. Est ce qu'il existe un VBA qui irai chercher les destinataires dans une liste (4 personnes) dans, par exemple l'onglet paramètres
Sub envoie_une_page_3()
ActiveWorkbook.SaveAs Filename:="D:\Bordereau gestion absences Andilly\ARCHIVES_" & Format(DateAdd("D", -1, Date), "DDMMYYYY") & ".xls"
Sheets("janvier s").Copy
Cells.Copy
Cells.PasteSpecial (xlPasteValues)
ActiveWorkbook.SendMail "xxxx.xxxxx@laposte.net", "collecte activité mensuelle "
End Sub
merci beaucoup à vous
cordialement