Sub Classeur_SaveAs()
Dim fname
fname = Application.GetSaveAsFilename(InitialFileName:="Fichier du " & Format(Date, "dd-mm-yy"), FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
If fname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=fname
End Sub
Sub sauveclasseur()
'Dim dte As Date
'Dim dte1 As String
Dim chemin As String, nomfichier As String
'dte = Now()
chemin = "C:\dossier\" ' ou "C:\dossier\sousdossier\" ou "C:\dossier\sousdossier\Soussousdossier\" 'à adapter"
nomfichier = "Fichier du " & Format(Date, "dd-mm-yy") & ".xls"
ActiveWorkbook.SaveCopyAs chemin & nomfichier
End Sub