Bonjour a tous,

Je suis en train de me monter une macro en Excel 2010. Je suis un peu rouillé n'ayant pas utilisé de macro depuis plusieurs années. Donc la macro doit enregistrer un document et par la suite il doit l'envoyer via Outlook. J'ai été en mesure de monter la macro mais il me manque un point: J'aimerais inclure du texte dans le message genre

Bonjour,

Ci-joint vous trouverez.......

Voici la macro que j'ai batie

Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:\Users\XXXXXXX\Desktop\" & Range("F13") & " " & Range("F17").Value
'ActiveWorkbook.SaveAs "classeur_test"

ActiveWorkbook.SendMail Recipients:="roger@grostoutou.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True

End Sub

Est-ce possible d'inclure du texte dans mon message???? Si oui quelle est la fonction qui me permettrait de le faire,?

Merci

TheCrow!

Salut,

Je me sers tous les jours du code ci-dessous. (fonctionne avec Outlook même fermé)

C'est Body qui gère le corps du message

Sub Macro1()

Dim Destmail, OAppli, OApplirun, myItem, myAttachments, myRecipient, olMailItem

ActiveWorkbook.SaveAs Filename:="C:\Users\XXXXXXX\Desktop\" & Range("F13") & " " & Range("F17").Value

ActiveWorkbook.SaveAs "Classeur_test"
Destmail = "rogerl@grostoutou.com"
If MsgBox("Voulez-vous envoyer le fichier par mail à " & Destmail & " ?", 292, Version) = vbYes Then
Set OAppli = CreateObject("Outlook.Application")
If OAppli.Explorers.Count < 1 Then
OApplirun = Shell("Outlook", 6)
End If
Set myItem = OAppli.CreateItem(olMailItem)
myItem.Subject ="Test envoi classeur"
myItem.Body = "Veuillez trouver ci-joint blablabla. Ce message est envoyé automatiquement. Merci de ne pas répondre."
Set myAttachments = myItem.Attachments
Set myRecipient = myItem.Recipients.Add(Destmail)
myAttachments.Add Classeur_test
myItem.send
OAppli.Quit
Else
End If
End Sub

@++

Merci de ta réponse, je vais essayer cela au courant de la semaine et laisser savoir si tout est ok, désolé du délai de réponse!