Pièce jointe avec mail

Bonjour,

Je viens de réaliser une macro pour envoyer un mail (Celle ci fonctionne)

J'aimerai insérer un fichier Excel avec ce mail (Ce fichier se situe dans mon disque C et c'est un Excel.

Merci d'avance =)

Bonjour,

Une idée sur cette procédure

Sub envoiMail()
Dim Fichier As Variant
Dim Wbk As Workbook

For Each Wbk In Workbooks
    Wbk.Save
  Next Wbk

Fichier = "E:\Excel\***********.xlsx"

Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.Application")
Set MonMessage = MaMessagerie.createitem(0)
MonMessage.to = "adresse@.fr"

MonMessage.attachments.Add Fichier
MonMessage.Subject = "sujet"

MonMessage.body = contenu
MonMessage.send
Set MaMessagerie = Nothing
MsgBox "Votre Mail a bien été envoyé avec la P.J."
Application.DisplayAlerts = False
Workbooks("Test Mail.xlsm").Close

End Sub