Re : envoyer un mail via une liste
Bonjour,
merci de ta réponse, donc si j'ai compris tu me dis de copier l'onglet en c:\Temp et de l'insérer manuellement ensuite ?
de mon coté je tâtonne toujours, donc il me fait la copie mais je n'arriva pas à la mettre en PJ
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, CC As String
Sheets("Feuil1").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
MailAd = Range("a1")
Subj = Range("b1")
Msg = Msg & Range("c1")
CC = Range("D1")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&cc=" & CC & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = False
End Sub
avec la macro ci dessous j'arrive à joindre la PJ mais je ne sais pas comment intégrer la commande "inserer pjl"
Sub envoie_une_page_2()
Sheets("janvier s").Copy
Cells.Copy
Cells.PasteSpecial (xlPasteValues)
ActiveWorkbook.SendMail "xxxx.xxxxx@laposte.net", "collecte activité mensuelle"
End Sub
cordialement