G
gabo29
Guest
Bonjour,
J'ai un code pour envoyer des feuilles excel par mail mais je souhaiterai le modifier car dans mon code, il faut rajouter le nom de chacune des feuilles. Ce que j'aimerai c'est faire en sorte que toutes les feuilles à partir du 4ème onglet soient envoyées.
Pourriez-vous m'indiquer comment faire svp.
Voici mon code :
Sub ENVOI_3()
On Error Resume Next
Sheets(Array("feuil1", "feuil2", "feuil3", "feuil4", "feuil5",)).Copy '
With ActiveWorkbook
.SendMail Recipients:=Array("xxxx.xxxx@xxxx.com", "xxxx.xxxx@xxxx.com"), Subject:="blabla" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
Application.WindowState = xlNormal
End Sub
Merci d'avance,
Cdt,
Gabo29
J'ai un code pour envoyer des feuilles excel par mail mais je souhaiterai le modifier car dans mon code, il faut rajouter le nom de chacune des feuilles. Ce que j'aimerai c'est faire en sorte que toutes les feuilles à partir du 4ème onglet soient envoyées.
Pourriez-vous m'indiquer comment faire svp.
Voici mon code :
Sub ENVOI_3()
On Error Resume Next
Sheets(Array("feuil1", "feuil2", "feuil3", "feuil4", "feuil5",)).Copy '
With ActiveWorkbook
.SendMail Recipients:=Array("xxxx.xxxx@xxxx.com", "xxxx.xxxx@xxxx.com"), Subject:="blabla" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
Application.WindowState = xlNormal
End Sub
Merci d'avance,
Cdt,
Gabo29