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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!