Renommer un fichier Via Macro

Bonjour à tous,

Je dois renommer plusieurs fichiers, j'ai fais cette partie de code mais comme j'ai plusieurs fichiers je ne sais pas comment mis prendre.

Sub RenommerUnFichier()

'renommer un fichier
Dim AncienNom As String
Dim NouveauNom As String

MonDossier = "C:\Temp\"

AncienNom = MonDossier & "xxxxxd01.slddrw"
NouveauNom = MonDossier & "55555d01.slddrw"

Name AncienNom As NouveauNom

End Sub

Pour info les fichiers ne se suivent pas (voir pieces jointes du repertoire)

Merci de votre aide

capture

Bonjour,

La toute première étape est de constituer une liste avec dans tes deux colonnes :

l'ancien nom dans la première colonne et le nouveau nom à côté dans la seconde colonne ...

Ensuite une simple boucle fera le travail pour toi ...

En espèrant que cela t'aide

il faut juste changer les "xxxxx" en un numéro 55555

je ne peux pas avoir de fichier avec deux colonnes car les fichier en "xxxxx" sont fait aléatoirement par excel

j'ai réussi à liste mon répertoire mais comment faire pour changer uniquement les ficchier qui on "xxxxx" dans le nom du repertoire?

ci-joint le repertoire liste sur excel

2renomfichier.zip (11.83 Ko)

j'ai fais les deux colonnes mais je n'arrive pas à faire la gestion VBA du changement de fichiers?

6renomfichier.zip (11.54 Ko)

Re,

Ci-joint ton fichier test

En espèrant que cela t'aide ...

la macro bloque sur

Set objFolder = objFSO.GetFolder(strPath)

Bonjour a tous

je vais répondre à la place de James...

as tu personnalisé la ligne

    'Adapter le répertoire ''''''''''''''''
    strPath = "C:\Users\MesDocuments\"

comme demandé par James ???

Fred

Bonjour à tous,

Salut fred2406

Merci ... tu as totalement raison ...!!!

C'est bien la première chose à faire ... travailler avec le bon répertoire ...

Rechercher des sujets similaires à "renommer fichier via macro"