VBA:Envoi par mail de doc Excel

[Cédrick]

Bonjour à tous,
j'ai bien noté le code pour l'envoi de message via Excel:
"
Sub envoiMailEtQuelquesFeuilles()
Sheets(Array("feuil2", "Feuil3")).Copy ' créée une copie des feuilles cibles dans un nouveau classeur
ActiveWorkbook.SendMail Recipients:="LeForumXLD@net.fr" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub
"

Est ce possible de compléter cet envoi :
1/ par un message en corps de texte
2/ que le message ne soit pas envoyé mais que Outlook l'ouvre et que ce soit l'utilisateur lui même qui clique sur Envoyer pour confirmer (dans outlook).

Merci d'avance

 

[myDearFriend]

Bonsoir Cedrick, le Forum.

Tu peux essayer une des deux solutions ci-dessous :

Sub envoiMailEtQuelquesFeuilles1()
Dim Obj As String
Obj = "Voici quelques feuilles Excel"
Sheets(Array("feuil2", "Feuil3")).Copy ' créée une copie des feuilles cibles dans un nouveau classeur
Application.Dialogs(xlDialogSendMail).Show "LeForumXLD@net.fr", Obj
ActiveWorkbook.Close False
End Sub

Sub envoiMailEtQuelquesFeuilles2()
Dim Messagerie As Object
Dim Mess As Object
Set Messagerie = CreateObject("outlook.Application")
Set Mess = Messagerie.CreateItem(olMailItem)
With Mess
.Subject = "Voici quelques feuilles Excel"
.Body = "Ceci est le message..."
.Recipients.Add ("LeForumXLD@net.fr")
.Attachments.Add "C:\MonFichier.xls"
.Display
End With
Set Mess = Nothing
Set Messagerie = Nothing
End Sub


A noter que dans la première solution, il n'est pas possible d'y inclure le corps du message (sauf erreur de ma part).


Cordialement,
Didier_mDF