Renommer des fichiers en masse à partir d'une liste
sophiabibich
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
Je voudrais renommer des fichiers que j'ai dans un répertoire à partir d'une liste qui est sur un fichier excel qui contient dans une colonne les noms des anciens fichiers avec leurs extensions et dans l'autre colonne les noms des nouveaux fichiers avec leurs extensions.
par exemple j'ai un fichier a.doc dans mon répertoire et dans ma liste excel a.doc c'est l'ancien nom et le nouveau nom c'est b.doc. je voudrais renommer ce fichier automatiquement.
merci
Je voudrais renommer des fichiers que j'ai dans un répertoire à partir d'une liste qui est sur un fichier excel qui contient dans une colonne les noms des anciens fichiers avec leurs extensions et dans l'autre colonne les noms des nouveaux fichiers avec leurs extensions.
par exemple j'ai un fichier a.doc dans mon répertoire et dans ma liste excel a.doc c'est l'ancien nom et le nouveau nom c'est b.doc. je voudrais renommer ce fichier automatiquement.
merci
A voir également:
- Renommer des fichiers en masse avec excel
- Renommer des fichiers en masse - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
1 réponse
Bonjour,
En vba faire une boucle:
En vba faire une boucle:
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var, Var2 As Variant
Dim chemin As String 'chemin du dossier des fichiers a renommer
chemin = "C:\Users\.....\Documents\" 'a adapter toujours finir par \
Set FL1 = Worksheets("Feuil1") 'a adapter
NoCol = 1 'lecture de la colonne 1
For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
Var = FL1.Cells(NoLig, NoCol) 'colonne A
Var2 = FL1.Cells(NoLig, NoCol + 1) 'colonne B
Name chemin & Var As chemin & Var2 'renommer
Next
Set FL1 = Nothing
End Sub
