Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro qui renomme un fichier?

  • Initiateur de la discussion Initiateur de la discussion jennifer
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jennifer

Guest
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
 
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
 
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?
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
187
Réponses
2
Affichages
188
Deleted member 453598
D
Réponses
4
Affichages
332
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…