Envoi mail Microsoft office outlook 2007

Bonjour a tous

Sujet pas très nouveau mais qui me rend fou tellement je bloque. Je fais donc appel à votre gentillesse pour m'aider.

J'essaye d'être précis: voila dans le fichier joint j'ai des feuilles auxquelles j'ai attaché un bouton "envoyer".

Ce dernier est censé envoyer la feuille en question par mail.

Problème: j'ai Microsoft office outlook 2007.

J'ai deja essayé des macros que j'ai trouvé à droite et à gauche mais sans résultat.

Si une âme charitable veut bien ce pencher sur mon doc je lui serai reconnaissant.

Merci d'avance.

Bonjour

A tester

Code dans un Module

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "amadeus-09@wanadoo.fr" 'à changer
Destinataires(2) = "champion@wanadoo.fr"'à changer
Destinataires(3) = "nero@wanadoo.fr"'à changer
Sujet = "Envoi Fichier"
AccuseReception = True
ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

Fichier complété joint

Cordialement

Merci beaucoup pour ta rapidité.

Je teste ça et je te tiens au courant

Amadéus

J'ai testé à l'instant et ça fonctionne parfaitement

Merci beaucoup