Sub SauvDocument()
Dim Nom As String, Chemin As String, Rep As String
Nom = "Doc1"
Chemin = "Sauvegarde\"
Rep = ActiveDocument.Path & "\" & Chemin
If Dir(Rep & Nom) = "" Then MkDir Rep & Nom
Fichier = Rep & "\" & Trim(Nom) & ".Doc"
If Dir(Fichier) <> "" Then
MsgBox "le fichier existe déjà !"
Exit Sub
End If
ActiveDocument.SaveAs Rep & Nom
End Sub