Macro qui renomme un fichier?

[jennifer]

Bonjour a tout le forum!!
Suivez le titre du message, je chercher a creer une macro qui renommera mon workbook Excel avec un nom defini exemple

Renommer le fichier dans le quel je travaille par "Test"
Comment faire?
Merci!

Jennifer

 

[CBernardT]

Re : Macro qui renomme un fichier?

Bonjour Jennifer et le forum,

Un essai de macro pour enregistrer le classeur actif en classeur "Test.xls"

Sub Enregistrement()
Dim Nom As String, Fichier As String
'Nom à donner au nouveau classeur
Nom = "TEST"
'ThisWorkbook.Path permet de recuperer le chemin du classeur actif
Fichier = ThisWorkbook.Path & "\" & Nom
'Enregistrement au format normal du classeur
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
End Sub


Cordialement

Bernard

 

[jennifer]

Re : Macro qui renomme un fichier?

Excellent ca marche!

Merci comme toujours...super reponse super rapide.. que demander de plus??...

Jennifer!

 

[jennifer]

Re : Macro qui renomme un fichier?

Ouppps j'ai parle un peu vite!
En fait la macro fonctionne mais elle va creer un novueau fichier, or je souhaite juste "ecraser" le precedent!
Es-ce possible?

 

[jennifer]

Re : Macro qui renomme un fichier?

LOL, et bien je prendrais ton option du kill pour voir ce que cela donne...
mais comment faire pour
1) Récuperer le nom du fichier actuel ( avant de faire le "renommage")
2) Faire le kill
3) qu'es ce que cela " CreateBackup:=False"

C'est un code qui m'es apparu quand je me suis amusée a esseyer de faire la macro toute seule comme une grande avant de venir embeter le forum...

meri pour l'aide encore!

Jennifer

 

[jennifer]

Re : Macro qui renomme un fichier?

PAN!!!!! Ca marche!

Je suis une killeuse now!
😛 😉
Merci!

Jennifer