Renommer un ensemble de fichiers

kiki29

XLDnaute Barbatruc

• 10 Mars 2011

• #2

Re : Renommer un ensemble de fichiers

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

 

Pièces jointes

• Renommer.zip

  10 KB · Affichages: 115
• Renommer.zip

  10 KB · Affichages: 121
• Renommer.zip

  10 KB · Affichages: 106

Dernière édition: 10 Mars 2011

Vote positif 0 Vote négatif

moustic54

XLDnaute Occasionnel

• 10 Mars 2011

• #3

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.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 10 Mars 2011

• #4

Re : Renommer un ensemble de fichiers

Salut,un snapshot sur un fichier d'essai

 

Pièces jointes

• IMG744.jpg

  19 KB · Affichages: 180

Vote positif 0 Vote négatif

moustic54

XLDnaute Occasionnel

• 10 Mars 2011

• #5

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 10 Mars 2011

• #6

Re : Renommer un ensemble de fichiers

Re,Dans SelDossier remplacer

Code:

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

par

Code:

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

dans Majus, rajouter

Code:

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

à

Code:

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

 

Dernière édition: 10 Mars 2011

Vote positif 0 Vote négatif

moustic54

XLDnaute Occasionnel

• 10 Mars 2011

• #7

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

 

Vote positif 0 Vote négatif