Renommer des fichiers en automatique

[Bruno]

Bonjour a tous,

Voici ce que je voudrais faire si possible

Dans une feuille excel dans la colonne a je récupère la liste des fichiers jpg dans la colonne b je mets le nouveau nom des fichiers et je lance la macro.
Les fichiers vont se renomme tous seul avec le nouveau nom.

Merci de votre aide.

Bruno

 

[Zon]

Salut,

En vBA tu peux utiliser Name

name "c:\tonrepertoire\" & range("A"&i).text as "c:\tonrepertoire\" range("B" & i).text

A+++

 

[Bruno]

Bonjour a tous

Merci a zon pour ton aide

j'ai modifier ta macro car cela ne marche pas.

Sub renommer()
Name "c:\Test\" & Range("A1") As "c:\Test\" & Range("B1").Value
End Sub


Bruno

 

[Bruno]

Rebonjour à tous

J'ai réussi à faire ce que je voulais si cela intéresse quelqu’un voici la macro ( Merci à Zon de son aide ).

Mettre les noms des fichiers du repertoire C:\Test\ en A2 et en B2 mettre le nom a modifier.

Sub Renommer()
On Error Resume Next
Dim i As Integer

i = 1
While Cells(i, 1) <> 0
i = i + 1
Cells(i, 1).Select
Name "C:\Test\" & Range("A" & i) As "C:\Test\" & "\" & Range("B" & i)
Wend
Range("A1").Select

End Sub

Bruno