Discussion :

[NinoPhoto]

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!

[Menhir]

Premièrement, je te conseille de supprimer le On Error Resume Next qui débute ton code.
S'il y a des erreurs qui se produisent dans ton code, il est préférable de les anticiper et de les gérer sans les planquer sous le tapis.

Le plus simple dans ton cas serait de mettre en colonne A et B les chemins complets (depuis la racine) des fichiers à traiter.

Mais si tu veux voir comment traiter une arborescence avec les sous-dossiers, voir ces codes :
https://excel.developpez.com/sources...scenceDossiers
https://excel.developpez.com/faq/?pa...riptingRuntime

[NinoPhoto]

Merci!
Je vais étudier ces codes. Honnêtement il est probable que je revienne vers vous.