Créer un bouton envoi par mail

Bonjour,

J'aimerais ajouter dans la feuille commande, un bouton clic pour envoyer par mail. J'ai les codes pour un doc word.

Merci d'avance pour votre aide

Cordialement

Bonjour VSY

Que ce soit sur Word ou Excel le code est le même, sauf pour le classeur à joindre

' Il faut remplacer
Dim xDoc as Document
' Par
Dim Wbk As WorkBook
' Et
Set xDoc = ActiveDocument
' par
Set Wbk = ActiveWorkbook
' Et
xDoc.Save
' Par
Wbk.Save
' Et
.Attachements.Add xDoc.FullName
' Par
.Attachements.Add Sht.FullName

A+

Bonsoir,

Voici une proposition, mais votre demande n'est pas la même à l'intérieur de votre fichier ? je ne sais pas trop ce que vous vouliez du coup ?

A adapter.

A noter : que le code d'envoi d'email a été développé par BrunoM45 que je félicite pour son travail.

Bonne soirée

merci pour les infos. Cela m'a bien aidé.

bonne journée à tous

Bonjour,