Sub Renommer_gérard()
Dim chemin$, fso As Object, f As Object, fn$, p%
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next 'si un fichier est ouvert
For Each f In fso.GetFolder(chemin).Files
If f.Name <> ThisWorkbook.Name And f.Name Like "*.*" Then
Workbooks(f.Name).Close False 'si le fichier est ouvert on le ferme
fn = chemin & f.Name
p = InStrRev(fn, "\")
'If f.DateCreated = f.DateLastModified Then
'Name fn As Left(fn, p) & Format(f.DateCreated, "yyyy mm dd ") & Mid(fn, p + 1)
'Else
Name fn As Left(fn, p) & Format(f.DateLastModified, "yyyy mm dd ") & Mid(fn, p + 1)
'End If
End If
Next
End Sub