Discussion :

[DRDams]

Bonjour,

J'aimerais créé un bouton sur excel me permettant d'envoyer par mail le document excel en question.

Quelqu'un pourrait m'aider ?

[BENNASR]

bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub envoiMail()
activeSheet.Copy ' créée une copie de la feuille active
activeWorkbook.sendMail Recipients:="vvvvv@yahoo.fr" 'envoi Mail
Application.displayAlerts = False
activeWorkbook.Close ' fermer le classeur créé après l'envoi
Application.displayAlerts = True
End Sub

[don_pets]

Hello,

Autre voie possible, la génération d'un nouveau message avec ton fichier en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.Dialogs _
(xlDialogSendMail).Show

Enjoy

[DRDams]

le code ne fonctionne pas, avez vous d'autres option ?