Aide envoi de Mail par Macro

Bonjour, je viens vers vous avec un petit soucis ...

J'ai créé une macro sur excel qui me permet de remplir un champ (plusieurs par la suite) dans un document word et d'envoyer celui-ci automatiquement via Outlook en pièce jointe.

Sur le principe, il semble que cela puisse marcher mais je me retrouve avec deux petits problèmes qu'un expert VBA pourra certainement solutionner très vite.

• il faudrait que je vide le champ avant de réintroduire une donnée car sinon elles se cumulent sur le document
• malgré le fait que je crois avoir sauvegardé (.Save) le document word, il me mets en pièce jointe la version avant sauvegarde!

Là, je bloque ... je cherche une âme charitable

Private Sub CommandButton1_Click()

    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Set WordApp = New Word.Application
    Set WordDoc = WordApp.Documents.Open("C:\Users\Patrick\Desktop\Commande.docx")
    WordApp.Visible = False

    WordDoc.Fields(1).Result.Text = Range("F3")
    WordDoc.Save
    WordDoc.Close True
    WordApp.Quit

    Dim fichier
    fichier = "C:\Users\Patrick\Desktop\Commande.docx"

    Set myApp = CreateObject("Outlook.Application")
    Set myItem = myApp.CreateItem(olMailItem)
    myItem.Subject = "Commande en cours"
    myItem.Body = "Merci de bien vouloir prendre en compte ma commande"
    myItem.Attachments.Add fichier
    myItem.to = "patrick.quinard@aliceadsl.fr"
    myItem.Display
    myItem.Send

    MsgBox "Le mail a bien envoyé"

End Sub

Merci d'avance

Cordialement

Patrick