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
merci de votre aide par avance
Cordialement
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