Discussion :

[lefilsacc]

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

[SfJ5Rpw8]

pas besoin de chdir.. précise ton répertoire avec ton nom de fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
...
ActiveWorkbook.SaveAs Filename:="c:\annuaire\" & nomfichier,....

[lefilsacc]

Merci pour la reponse !!!!

ca fonctionne.

faire les choses le plus simplement possible etait la solution.