bouton d'envoi

[marc]

Bonjours,

Voila j'ai créer une feuille excel et j'aimerai pouvoir creer un bouton d'envoi
sur cette feuille qui permete de faire patir directement cette feuille via outlook à une adresse preséfinie.

Merci si quelqu'un à la réponse.

Tchao Marc

 

[michel]

bonsoir Marc

la macro ci dessous permet d'envoyer par mail la feuille active . cela ne fonctionne pas avec outlookExpress .
j'espere que cela pourra t'aider.

Sub envoiMailEtFeuilleActive()
activeSheet.Copy ' créée une copie de la feuille active
activeWorkbook.sendMail Recipients:="forumXLD@test.net" 'envoi Mail
Application.displayAlerts = False
activeWorkbook.Close ' supprime le classeur créé après l'envoi
Application.displayAlerts = True
End Sub

bonne soirée
michel