macro pour envoyer la feuille par mail

[amolcard]

Bonjour le forum 😉

J'aimerais envoyer la feuille active (ou une zone de la feuille active) par mail en cliquant sur un bouton.

J'ai essayé à peu près toutes les solutions proposées sur le forum pour l'envoi de mail, mais ça ne marche pas 😕

Merci d'avance pour votre aide 🙂

 

[amolcard]

Re : macro pour envoyer la feuille par mail

Sub MacroMail()

Dim AccuseReception As Boolean
Dim Sujet As String
'
ActiveWorkbook.Windows(1).SelectedSheets.Copy
AccuseReception = True
Sujet = "Titre du mail"
ActiveWorkbook.SendMail "XXX@XXX.fr", Sujet, AccuseReception
ActiveWorkbook.Close False

End Sub

Macro trouvé sur XLD et très légèrement modifié

Ca à l'air de marcher 😀

Merci !