Discussion :

[tanaka59]

Bonjour,

Je dispose d'une liste +/- 6000 fichiers (doc,docx,pdf,xls,xlsx ...) dans 2 répertoires distincts.

Je dois modifier en masse les noms des fichiers (comme j'ai des noms de fichiers folkloriques avec espace, accent, symbole speciaux ... ) j'ai oublié le bon vieux CMB/BAT . Je le fait donc en VBA.

Dans un fichier XLSM ou j'ai 2 colonnes L et M , avec respectivement ancien et nouveau noms.

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub renommerfichier()
 
Dim anciennom, nouveaunom, ancienlien, nouveaulien, temporaire As String
Dim i As Integer
 
i = 0
 
For i = 2 To 850
 
Range("L" & i) = ancienlien
Range("M" & i) = nouveaulien
 
nouveaulien = temporaire
temporaire = Dir(anciennom, 0)
 
Next
 
End Sub

Le fichier en colonne L doit prendre le nom du fichier en colonne M. Le nom du fichier est a modifier dans le repertoire, pas dans le fichier excel.

Merci de m'aiguiller

[Philippe Tulliez]

Bonjour,
La réponse dans la FAQ https://excel.developpez.com/faq/?pa...RenommeFichier

[tanaka59]

Bonjour,

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Sub renommerfichier()
 
Dim AncienNom As String, NouveauNom As String
 
Dim i As Integer
 
i = 0
 
' boucle
 
For i = 1 To 100
 
AncienNom = Range("L" & i)
NouveauNom = Range("M" & i)
ActiveSheet.Range("N" & i).Value = i
 
'Vérifie si le fichier à renommer existe.
 
'Renomme le fichier
 
Name AncienNom As NouveauNom
 
Next
 
End Sub

Voici un code qui pourra vous interesser