XL 2016 Renommer les fichiers d'un dossier via vba Excel selon 5_*.docx devient 0005_*.docx

[Patrice MARIE]

Bonjour à tous,
Voilà mon problème. J'ai une série de 2100 fichiers dont le nom commence par un nombre (de 5 à 2200) suivi de "_" puis du texte.
Tous ces fichiers sont sous le même répertoire. Excel me sert juste à lancer la macro. D'autres fichiers autres que *.docx ne sont pas à traiter.

exemple 5_blabla_blablabla.docx doit devenir 0005_blabla_blablabla.docx
89_toto_tintin.docx doit devenir 0089_toto_tintin.docx
1245_fff_yyyyyyy.docx est déjà au bon format donc pas touche

en fichier joint une macro qui ne fonctionne pas correctement.

Si j'ose je souhaiterai choisir le 1er et le dernier fichier du dossier à traiter.

Merci d'avance de vos suggestions.

 

[laurent950]

Bonsoir @Patrice MARIE

Ajouter ceci en vert.
[°°° Votre Code]
NV_chemin_et_fichier = chemin_dossier & "\" & NV_fichier
Range("b18") = NV_chemin_et_fichier
T = split(Name chemin_fichier, "_")
NV_chemin_et_fichier = chemin_dossier & "\" & format(cstr(T(0)), "0000") & "_" & NV_fichier
Name chemin_fichier As NV_chemin_et_fichier
[°°° Votre Code]