répertoires

[guima1642]

bonjour,

Pb dans l'enregistrement :
j'ai un fichier référence qui s'appelle "exp" que je sauve dans un répertoire sauvegarde jusque là c'est bon,

    Nom = Range("o2").Value
    chemin = ActiveWorkbook.Path & "\sauvegarde\" + Nom + " _exp.xls"
    ActiveWorkbook.SaveAs Filename:=chemin, FileFormat:=xlNormal, _
        password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Mon pb est de revenir dans le fichier initial "exp" qui se trouve dans le répertoire au dessus de sauvegarde

 Nom = "exp.xls"
    chemin = [COLOR="Red"]ActiveWorkbook.Path [/COLOR]& "\" + Nom + "
    ActiveWorkbook.SaveAs Filename:=chemin, FileFormat:=xlNormal, _
        password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

en rouge ce que je pense devoir changer pour ne plus être dans sauvegarde.

 

[Guest]

Re : répertoires

bonjour,

Regardes du côté de 'SaveCopyAs(Filename)' dans l'aide excel, tu verras que cette méthode ne modifie pas le fichier ouvert mais en enregistre une copie.

A+

 

[guima1642]

Re : répertoires

Salut Hasco,

Merci pour ta réponse rapide, ça marche super bien.

j'allais un peu trop loin alors que c'etait si simple.