Dim FichierWord As Object
Dim signet As Variant
Dim TitleFichier As String
Set FichierWord = CreateObject("Word.Application")
' Création document
FichierWord.Documents.Add
' Ecriture dans document
' Sauvegarde
TitleFichier = "Commande " & Me.Range("j10").Value & " - " & Me.Range("f15").Value
FichierWord.ActiveDocument.SaveAs "C:\commande\" & TitleFichier
' Fermeture
FichierWord.ActiveDocument.Close
Set FichierWord = Nothing
End Sub