Renommer un ensemble de fichiers

[moustic54]

Bonsoir à tous


J'ignore si vous pourrez m'aider sur cette question.
J'ai plus de 400 fichiers xls nommés de la façon suivante :
2 ou 3 chiffres - NOM DE VILLE - chiffres.xls et je voudrais pouvoir changer les noms des villes en majuscules en mettant la 1ere lettre de chaque nom composant la ville en majuscule et les suivantes en minuscules.

exemple : 454 - LA CHAPELLE DU CHATELARD - 4554.xls
deviendrait 454 - La Chapelle du Chatelard - 4554.xls

Je sais que cette possibilité existe pour du texte dans une cellule mais existe t il une manipulation pour l'appliquer directement aux noms de fichiers ?

Merci d'avance pour vos conseils

 

[kiki29]

Re : Renommer un ensemble de fichiers

Salut,un 1er jet brut améliorable et sans doute simplifiable

 

[moustic54]

Re : Renommer un ensemble de fichiers

Bonjour Kiki29

J'ai testé le fichier mais une fois le dossier selectionné, rien ne se passe. 😕
J'ai même essayé en double cliquant sur le dossier. Celui-ci apparait comme un dossier vide alors que tous les fichies Excel s'y trouvent. 🙁
J'ai même essayé un créant un pseuo dossier à a racine mais pas plus de résultats.
Je suis sous Excel 2003.

 

[kiki29]

Re : Renommer un ensemble de fichiers

Salut,un snapshot sur un fichier d'essai

 

[moustic54]

Re : Renommer un ensemble de fichiers

Je vois que çà fonctionne, moi j'ai testé avec 3 fichiers
111 - BOURG EN BRESSE - 251.xls
1 - BOURG EN BRESSE - 251.xls
6 - NICE - 802.xls

et pas de résultats

 

[kiki29]

Re : Renommer un ensemble de fichiers

Re,Dans SelDossier remplacer

If NomA Like ("### - * - ####.xls") Then

par

If NomA Like ("* - * - *.xls") Then

dans Majus, rajouter

Or UCase$(Ar2(i)) = "EN" Then

à

If UCase$(Ar2(i)) = "DE" Or UCase$(Ar2(i)) = "DU" Then

comme tu n'avais fourni qu'un échantillon de nom,je ne pouvais pas deviner ce qui t'apparait évident

 

[moustic54]

Re : Renommer un ensemble de fichiers

Super, çà fonctionne
Désolé, c'est vrai que j'aurai du donner plus d'exemples de noms de fichiers au lieu d'une explication succinte 😱
Merci beaucoup