Dim appWord As Word.Application Dim cheminFichier As String cheminFichier = "C:\temp" & adresse1 & ".doc" On Error Resume Next Set appWord = GetObject(, "Word.Application") If Err.Number <> 0 Then Err.Clear Set appWord = CreateObject("Word.Application") End If appWord.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0 ActiveDocument.SaveAs Filename:=cheminFichier