Discussion :

[pastis.vi]

Bonjour à tous !

J'ai dans un dossier des fichiers avec les noms et extensions suivant:
XXXX_cmlink.hir
XXXX_data.cc
XXXX_data.cm
XXXX_data.cs
... (le nombre de fichier dans mon dossier varie)

Sachant que mes XXXX sont des noms variables. Je souhaite changer le nom de ces fichiers (sans les ouvrir) avec des correspondances:
XXXX_cmlink.hir ........................... XXXX_Liens Activites.txt
XXXX_data.cc ........................... Inutile
XXXX_data.cm ........................... XXXX_Activites.txt
XXXX_data.cs ........................... Inutile
...

"Inutile" signifie que je ne souhaite pas changer son nom.
Est-il possible à partir d'excel, en vba, de changer les noms et extensions de fichiers?
Si oui, une boucle For Each est-elle judicieuse pour traiter le grand nombre de fichiers qui se trouvent dans mon dossier?

Merci beaucoup !
pastis.vi

[EngueEngue]

Salut l'ami:
L'instruction name

Code :

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

1
2
fichier = "C:\Users\User\Desktop\tester.txt"
Name fichier As "C:\Users\User\Desktop\testeur.csv"

Ta boucle for each ira très bien avec à l'intérieur des If avec des opérateur like sur le nom de fichier ou des right tiens...

Code :

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

1
2
3
If right(nomfichier,11)= "_cmlink.hir" then
nouveaunom = left(nomfichier,len(nomfichier)-11) & "_Liens Activities.txt"
End if

[pastis.vi]

Super ! Merci je vais tester ça