Macro envoie moitié classeur sur outlook

[Aldo831]

Bonsoir à tous les Exceliens.

J'ai un classeur avec 4 feuil nommées de page 1 à page 4 je souhaiterai par un bouton selectionner les page 3 & 4 et pouvoir les envoyer sur outlook
Je vous en remercie par avance car là je bug
Bien informatiquement votre

Aldo831

 

[myDearFriend]

Bonsoir Aldo831,


Tu peux essayer la procédure ci-dessous :

Sub Envoi()
   Sheets(Array(3, 4)).Copy
   Application.Dialogs(xlDialogSendMail).Show "Destinataire@Dest.com", "Ci-joint Feuilles 3 et 4"
   ActiveWorkbook.Close False
End Sub


Cordialement.

Didier_mDF

 

[Aldo831]

Un grand merci ça marche très bien

Bien informatiquement votre

Aldo831