bonjour,
j'ai récupéré une macro, je l'ai remise en forme par rapport à ta demande:
essaye ceci
Sub enregistreretrenommer()
Dim Fichier As String
Fichier = Format(Date, 'yy mm d') & ' classeur bebert ' & '.xls'
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & '\\' & Fichier
End Sub
chantal