Renommer un fichier Excel par macro

Bonjour,

J'utilise un outil de gestion (BPC) qui m'édite des rapports Excel sous cette forme :
TOTO)TATA)TITI.xls
Je voudrais pouvoir remplacer les parenthèse par des slash pour avoir un nom de fichier sous cette forme :
TOTO_TATA_TITI.xls

Est-il possible de faire cette transformation par macro?
Merci de votre aide!

Yunasthar

Citation:

---

Envoyé par Yunasthar

Bonjour,

Je voudrais pouvoir remplacer les parenthèse par des slash pour avoir un nom de fichier sous cette forme :
TOTO_TATA_TITI.xls

Yunasthar

---

Bonjour,

je ne vois pas de slash :koi:

cordialement,

Didier

Rectification : par des underscore et non slash

Oups désolée

Code:

---

1 2 3 4

Dim oldName As String, newName As String oldName = "C:\Users\user\Desktop\TOTO)TATA)TITI.xls" newName = Left(oldName, InStrRev(oldName, "\")) & Replace(Mid(oldName, InStrRev(oldName, "\") + 1), ")", "_") Name oldName As newName

---

Merci beaucoup, cela va mettre bien utile. Néanmoins, je pense qu'il me manque une variable.

En fait actuellement j'ai une macro qui ouvre chaque fichier excel d'un répertoire, fait un copier/coller valeur du 1er onglet et referme chaque fichier en les enregistrant sous leur même nom d'origine.
Je souhaite donc modifier cette macro afin qu'elle remplace pour chaque nom de fichier, les parenthèses par des underscore.
Du coup, il faudrait que le nom du fichier d'origine ne soit pas écrit en dur dans le code de la macro car l'un va s'appeler TATA)TITI)TOTO.xls, et un autre TATA)TITI)TUTU.xls par exemple.

Est-ce qu'on peut rendre variable le nom d'origine, le old name?

Encore emrci.

Cordialement,

Yunasthar

mets ton code de ta macro qui ouvre les fichiers

Merci beaucoup!