Renommer des fichiers en automatique

Salut,

En vBA tu peux utiliser Name

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

A+++

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

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