Salut à vous deux,
Juste un petit mot pour dire qu'il faudra certainement mettre la date en forme car sinon on obtient le numéro de série et c moyen.
Sub Enregistre()
Dim NomFichier as String
NomFichier = Cells(1, 1) & " " & Format(Cells(2, 1) , "dd-mm-yy")
ActiveWorkbook.SaveAs FileName:=NomFichier
End Sub
@+
Valérie