Enregistrer ficher avant envoi

Bonjour

J'ai effectué une macro avec l'aide d'un ami concernant l'envoi d'un fichier Excel via Macro.

Cependant , j'aimerais ce jour ajouter une ligne pour "Save" le fichier avant que celui ci ne soit expédié.

Voici ma macro :

Sub Sendings()

 Dim Chemin As String
    Chemin = Workbooks(ActiveWorkbook.Name).FullName

MonCorps = "<p>Bonjour ,<p>" & "<p>Merci de prendre connaissance de la demande de transport<p>" & "<p>Cordialement<p>"
    With CreateObject("Outlook.Application")
        With .createitem(0)
            .To = "xx@xx"
            .Subject = "Demande de transport"
            .HTMLBody = MonCorps & MaSignature
            .Attachments.Add (Chemin)
            .Display
        End With
    End With
End Sub

Je seche un peu sur ou je dois rajouter la ligne et quel ligne en fait

Pouvez vous m'aider ?!

Merci

Bonjour,

à tester,

Sub Sendings()
 Dim Chemin As String
    Chemin = Workbooks(ActiveWorkbook.Name).FullName
    ActiveWorkbook.Save

MonCorps = "<p>Bonjour ,<p>" & "<p>Merci de prendre connaissance de la demande de transport<p>" & "<p>Cordialement<p>"
    With CreateObject("Outlook.Application")
        With .createitem(0)
            .To = "xx@xx"
            .Subject = "Demande de transport"
            .HTMLBody = MonCorps & MaSignature
            .Attachments.Add (Chemin)
            .Display
        End With
    End With
End Sub

Bonjour

Essaye ça :

Sub Sendings()

 Dim Chemin As String
 ThisWorkbook.Save 'Petit bout de code tout simple ;)
    Chemin = Workbooks(ActiveWorkbook.Name).FullName

MonCorps = "<p>Bonjour ,<p>" & "<p>Merci de prendre connaissance de la demande de transport<p>" & "<p>Cordialement<p>"
    With CreateObject("Outlook.Application")
        With .createitem(0)
            .To = "xx@xx"
            .Subject = "Demande de transport"
            .HTMLBody = MonCorps & MaSignature
            .Attachments.Add (Chemin)
            .Display
        End With
    End With
End Sub

Bonjour

Merci pour la réponse

Ca marche nickel