Salut Stephane
Je ne sais si l'instruction SendMail sait faire autre chose qu'envoyer le classeur actif. Parcontre ce programme envoi des mails via OutLook et tu pourra mettre dans la variable texte la concaténation de tes cellules .
'Attribute VB_Name = "MailAvecOutlookExpress"
Sub MailOXpress()
Dim dest$, sujet$, texte$
Application.ScreenUpdating = False
dest = "roland.bachmann@wanadoo.fr"
sujet = "Envoyer un mail depuis Xl sansF"
texte = "Envoyé avec Outlook Express depuis Excel: " & Time()
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte
SendKeys "%s"
End Sub
'modifié par Eric Humeau, mpfe pour envoyer aussi un classeur en pièce jointe
Sub MailOXpress2()
Dim dest$, sujet$, texte$
Dim Rep
Application.ScreenUpdating = False
'Rep est le nom de ton fichier à joindre.
Rep = "c:\test1.xls"
dest = "roland.bachmann@wanadoo.fr"
sujet = "Envoyer un mail depuis Xl avecF"
texte = "Envoyé avec Outlook Express depuis Excel: " & Time()
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte, 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 & "~"
SendKeys "%I" & "p" & Rep & "~"
SendKeys "%s"
End Sub
A+ Roland .