Application macro de renommage à tout une arborescence
Bonjour,
Je ne parviens pas à ce que cette macro de renommage s'applique à tout le contenu d'une arborescence de dossiers.
Le renommage automatique ne se fait que pour le contenu du répertoire et non jusqu'au contenu de chaque sous dossier.
Code:
1
2
3
4
5
6
7
8
9
| Sub renom()
rep = "C:\Users\Desktop\Test" 'mettre le chemin du r?pertoire complet
ChDir rep
On Error Resume Next
For I = 1 To Range("A65000").End(xlUp).Row
Name Cells(I, 2) As Cells(I, 1)
Next I
On Error GoTo 0
End Sub |
Merci d'avance pour votre aide!
