Excel Messagerie et Macro

[yves]

Bonjour !

Je souhaiterais savoir si il est possible d'automatiser l'envoi de plusieurs feuilles excel d'un même classeur par le biais d'un bouton auquel on affecte une macro. J'arrive à le faire sur 1 feuille ou 1 classeur mais pas sur plusieurs feuille d'un même classeur.

Merci d'avance

 

[michel]

bonsoir Yves

dans l'exemple joint ,uniquement les feuilles nommées "Feuil2" et "Feuil3" sont envoyées par mail

Sub envoiMailEtQuelquesFeuilles()
Sheets(Array("feuil2", "Feuil3")).Copy ' créée une copie des feuilles cibles dans un nouveau classeur
ActiveWorkbook.SendMail Recipients:="LeForumXLD@net.fr" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub


bonne soiree
MichelXld

 

[Cédrick]

Bonjour,
bien utile ce petit programme.

Est ce possible de compléter cet envoi par,
1/ un message en corps de texte
2/ que le message ne soit pas envoyé mais que Outlook l'ouvre et que ce soit l'utilisateur lui même qui clique sur Envoyer pour confirmer.

Merci d'avance