Discussion :

[Yunasthar]

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

[Didier Gonard]

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

cordialement,

Didier

[Yunasthar]

Rectification : par des underscore et non slash

Oups désolée

[mercatog]

Code :

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

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

[Yunasthar]

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

[mercatog]

mets ton code de ta macro qui ouvre les fichiers