Bonjour,
J ai un classeur avec plusieurs feuilles et je voudrais envoyer que 4 feuilles sur les 14 par email en automatique a plusieurs destinataire
je suis vraiment novice sur le macros, je cherche donc sur les forums , les aides ... et j en suis la
Sub selectionmail()
Dim Dest As String, Sujet As String
Sheets(Array("graph X last ears and SH", "graph X last process parameters", _
"graph X last case depth", "graph lot mat")).Select
Sheets("graph X last ears and SH").Activate
ActiveSheet.Copy
Dest = "xxxx@xxx.xxx" 'Saisir l'adresse mail
Sujet = "7 last day hardening data"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub
j ai enregistrer la macro permettant de sélectionner les 4 feuilles, que j ai recopie dans cette macro.
la macro envoie bien un email, mais simplement avec une seule feuille au lieu des 4.
je pense que :
Sheets("graph X last ears and SH").Activate
ActiveSheet.Copy
est la cause de mon problème, mais si je mets le noms des autres feuilles la macro plante...
quelqu un peu il m aiguiller ?
merci d avance
J ai un classeur avec plusieurs feuilles et je voudrais envoyer que 4 feuilles sur les 14 par email en automatique a plusieurs destinataire
je suis vraiment novice sur le macros, je cherche donc sur les forums , les aides ... et j en suis la
Sub selectionmail()
Dim Dest As String, Sujet As String
Sheets(Array("graph X last ears and SH", "graph X last process parameters", _
"graph X last case depth", "graph lot mat")).Select
Sheets("graph X last ears and SH").Activate
ActiveSheet.Copy
Dest = "xxxx@xxx.xxx" 'Saisir l'adresse mail
Sujet = "7 last day hardening data"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub
j ai enregistrer la macro permettant de sélectionner les 4 feuilles, que j ai recopie dans cette macro.
la macro envoie bien un email, mais simplement avec une seule feuille au lieu des 4.
je pense que :
Sheets("graph X last ears and SH").Activate
ActiveSheet.Copy
est la cause de mon problème, mais si je mets le noms des autres feuilles la macro plante...
quelqu un peu il m aiguiller ?
merci d avance