Sub Renomme_Fichier()
Dim LePath As String, LeRajout As String
Dim FsO As Object
Dim Rep As Object
LePath = [A1]
LeRajout = [B1]
Set FsO = CreateObject("Scripting.FileSystemObject")
Set Rep = FsO.getfolder(LePath)
For Each Fich In Rep.Files
If Fich.Type = "Feuille de calcul Microsoft Excel" Then
' "Classeur Microsoft Office Excel 2007" si des fichiers 2007
Name Fich As LeRajout & Fich.Name
End If
Next Fich
End Sub