Re : Envoyer plusieurs feuilles pare email avec une macro
elle ne devrait envoyer que
ces 4 feuilles :
graph X last ears and SH", "graph X last process parameters", _
"graph X last case depth", "graph lot mat"
bizard
En fait quand on envoie par email , excel envoie tout le fichier, on n epeut pas selectionner les feuilles contrairement a une impression.
J ai donc copier les 4 feuilles dans un nouveua fichier que je nvoie par mail
par contre je n arrive toujours pas a mettre un texte dans le corps du message ...
ci dessous la macro
Sub Envoi()
Dim Dest(2) As String, Sujet As String
Dim Msg 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 lot mat").Activate
Sheets(Array("graph X last ears and SH", "graph X last process parameters", _
"graph X last case depth", "graph lot mat")).Copy
Dest(0) = "david.daurizio@delphi.com" 'Saisir l'adresse mail
Dest(1) = "davabuda@gmail.com"
Sujet = "Journal hardening data"
Msg = "Attached the 7 last days of hardening data"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
MsgBox ("Synthèse envoyée")
End Sub
merci