Comment faire une boucle pour renommer les fichiers d'un dossier

Bonjour,

Etant débutant en vba, je sollicite votre aide pour pouvoir faire une macro.

Je souhaite réaliser une boucle qui me permet de déplacer les fichiers d'un dossier pour les mettre dans un nouveau dossier et de les renommer avec un nom spécifique. Les fichiers d'origine commence par 20200330_ et je voudrais changer cette chaîne de caractère par NouveauFichier_.

Exemple ancien nom = 20200331_TPT_FR0013334372_20200504_ZZZZZZ AAAAAAAAA BB CCCCC enfait je voudrais changer 20200330_ par NouveauFichier etchanger ZZZZZZ AAAAAAAAA BB CCCCC par version2,

Est ce que possible.

Le soucis c'est que ma boucle pour déplacer les fichiers ne fonctionne pas et pour les renommer à la chaîne avec un nom spécifique, j'ai un peu fais la boucle comme je pense pouvoir faire, mais ça ne marche pas.

Bonjour,

exemple avec Name que je trouve plus simple :

Sub deplaceFich()
  repertoire1 = "c:\origine\"
  repertoire2 = "c:\dest\"
  nf = Dir(repertoire1 & "*.*")
  Do While nf <> ""
    If Not nf Like "*ABC*" Then ' si tu veux exclure des fichiers
       Name repertoire1 & nf As repertoire2 & nf
    End If
    nf = Dir
  Loop
End Sub 

eric