Excel Messagerie et Macro

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

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

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