Discussion :

[JOLIFLO57]

Malgré mes recherches de débutant, je n'ai rien trouvé.
Dans une macro, j'ouvre un classeur par :

Code :

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

1
2
3
4
Dim Dossier As String
    myFile = Application.GetOpenFilename
    Workbooks.Open Filename:=myFile
    Dossier = ActiveWorkbook.Name

Je fais ma cuisine sur ce classeur et avant la fermeture par :

Code :

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

Workbooks(Dossier).Close SaveChanges:=False

je souhaite que le nom du fichier soit précédé par exemple d'un "x " dans le répertoire pour montrer que celui-ci a été traité.

Avec mes remerciements

[drakkar_agfa]

Bonjour,

essais ceci

Code :

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

1
2
3
 
NouveauNom = "x " & ActiveWorkBook.Name
Chemin = ActiveWorkbook.Path

Ça va ajouter "x " en avant de ton nom de ficher
Et tu auras ton chemin, alors en jumelant les deux ensemble tu auras ta clée complète!

[drakkar_agfa]

Avec les deux codes de tantot, fais toi

FileToSave = ?????
et utilises ce code pour enregister sous.

Code :

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

1
2
3
4
 
ActiveWorkbook.SaveAs Filename:=FileToSave, _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False