Tiens j'ai trouvé ceci aussi....
From: Eric H
Subject: Re: envoi fichier par mail
Newsgroups: microsoft.public.fr.excel
Date: 2001-10-12 06:38:59 PST
Bonjour Bruno,
Oui, il est tout à fait possible de la faire, par contre c'est un peu tiré
par les cheveux.
Sub MailOXpress()
Dim dest$, sujet$, texte$
Dim Rep
Application.ScreenUpdating = False
'Rep est le nom de ton fichier à joindre.
Rep = "c:\test1.xls"
dest = "zaza@mpfe.fr"
sujet = "Envoyer un mail depuis Xl"
texte = "Envoyé avec Outlook Express depuis Excel"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", 3", vbMaximizedFocus
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis
envoyer.
SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub
Procédure trouvée sur le site de Frédéric que j'ai adptée pour l'envoi de la
pièce jointe.
http://perso.wanadoo.fr/frederic.sigonneau/Excel.htm
Si ça fait avancer le schmilbic !!!
@+Thierry