Sauvegarde Document Word dans Dossier Sauvagarde du même Dossier que le Fichier

MuscatMimi

XLDnaute Accro
Bonjour a tout le forum

Je galére depuis qq heures ,car je n'arrive pas a créer une sauvegarde de mon document Word dans le Dossier "Sauvegarde"
qui ce trouve dans le Dossier de mon Document Word

J'ai ce code ,mais il me créé bien ma sauvegarde de mon document Word dans le Dossier "Sauvegarde",mais en plus il me créé un Dossier Vide
"Doc1" dans ce même dossier
je vois pas ou est mon erreur



Code:
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

merci de votre aide par avance

Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson