Renommer en masse des répertoires et des fichiers

Bonjour,

Est-ce qu'il est possible de renommer en masse des fichiers et des répertoires,

ou même remplacer une partie d'un répertoire ou d'un fichier ?

J'ai la liste des répertoires et des fichiers dans 2 colonnes différentes

J'utilise Find pour trouver le mot qui doit être remplacé, une fois trouvé, la cellule est modifiée en fonction du nouveau nom ensuite pour chercher le suivant j'use FindNext et le programme plante lors de la sortie de la boucle

Sub test()
Dim MotRecherche As String, NouveauNom As String

MotRecherche = "ABC"
NouveauNom = "DEF"
  With Worksheets("DEF").Range("A1:A500")
    Set C = .Find(MotRecherche, LookIn:=xlValues)
    If Not C Is Nothing Then
      firstAddress = C.Address
      Do
        C.Value = NouveauNom
        Set C = .FindNext(C)
        '
        ' Instruction suivante qui plante
      Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
  End With
End Sub

Merci d'avance

Bonjour

Sujet déjà traiter dans le forum ...

si tu as les noms des fichiers initial dans une colonne et le nouveau nom dans une autre colonne tu peux aller voir ce poste ou j'ai mit une solution

https://forum.excel-pratique.com/viewtopic.php?f=2&t=65547&hilit=renommer+fichier

Fred

Pour le renommage d'un dossier j'utilise aussi ceci :

Fso.movefolder schemin & Nomdossierinit, schemin & Nomdossierchange

A adapter en conséquence aussi si tu as les informations dans deux colonnes différentes

pour le renommage sans deplacement du fichier tu peux aussi utiliser

fso.movefile

Fred