Classeur qui s'envoit vierge

Bonjour,

J'ai un code qui me permet d'envoyer rapidement ma feuille, qui fonctionne presque parfaitement.

Le seul petit souci, qui n'est pas des moindres, c'est qu'il s'envoit vierge.

Je pourrais contourner le problème en enregistrant avant d'envoyer, mais je souhaite que cette action reste au choix de l'utilisateur.

Avec la fonction sendmail la feuille s'envoit parfaitement en prenant en compte les modifications et sans enregistrer auparavant.

Quelqu'un pourrait-il m'éclairer, merci

Dim MonOutlook As Object
    Dim MonMessage As Object
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.createItem(0)
    MonMessage.To = TextBox1.Value
    MonMessage.Cc = TextBox2.Value
    MonMessage.Bcc = TextBox3.Value
    MonMessage.Subject = "Demande d'intervention"
    Corps = "Bonjour,"
    Corps = Corps & Chr(13) & Chr(10)
    Corps = Corps & "Je vous prie de bien vouloir trouver ci joint, une demande d'intervention"
    Corps = Corps & Chr(13) & Chr(10)
    Corps = Corps & "Bien à vous"
    MonMessage.Body = Corps
    MonMessage.Attachments.Add ActiveWorkbook.FullName
MsgBox "Votre demande a bien été transmise"

    MonMessage.send

        Set MonOutlook = Nothing

Bonjour Jérémy,

J'utilise aussi cette fonctionnalité mais j'envoie toujours des pièces attachées fermées. De mémoire j'ai eu ce genre de problème lors de mes premiers tests. Donc, sauvegarde ton classeur en le fermant avant d'envoyer ton message. :

SavePath = ActiveWorkbook.FullName
ActiveWorkbook.Close True
MonMessage.Attachments.Add SavePath

S'il n'y a d'autre solution que d'enregistrer, je le ferais.

Merci pour le retour d'expérience