Renommer des fichiers en masse à partir d'une liste
Fermé
sophiabibich
Messages postés
14
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
10 novembre 2015
-
10 nov. 2015 à 11:21
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 11 nov. 2015 à 15:52
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 11 nov. 2015 à 15:52
A voir également:
- Renommer des fichiers en masse avec excel
- Renommer des fichiers en masse - Guide
- Liste déroulante excel - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Liste déroulante en cascade - Guide
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
11 nov. 2015 à 15:52
11 nov. 2015 à 15:52
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