le probleme avec ma macro ci dessous : elle me fait bien un enregistrement en c:\annuaire mais pas en d:\sauvegarde

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Sub enregistrement()
 
'
 
nomfichier = Worksheets("feuil1").Range("NOM").Value
 
 
ChDir "c:\annuaire"
    ActiveWorkbook.SaveAs Filename:=nomfichier, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
 
 
ChDir "d:\sauvegarde\"
    ActiveWorkbook.SaveAs Filename:=nomfichier, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
 
 
end sub