nom de fichier automatique

'#####################################################
'### Constante de la feuille concernée (à adapter) ###
Const FEUILLE As String = "test"
'#####################################################

Sub Zone_combinee_1()
Dim S As Worksheet
Dim DD As DropDown
On Error GoTo Erreur
Set S = Sheets(FEUILLE)
S.Activate
Set DD = ActiveSheet.DropDowns("Drop down 1")
[c8] = DD.List(DD.Value)
Exit Sub
Erreur:
If Err = 9 Then MsgBox "La feuille " & FEUILLE & " est introuvable."
End Sub

Sub Nom_Classeur_sauvegarde()
Dim S As Worksheet
Dim A$
Dim i&
On Error GoTo Erreur
Set S = Sheets(FEUILLE)
S.Activate
For i& = 6 To 18 Step 2
  A$ = A$ & Range("c" & i& & "") & " "
  If i& = 6 Then A$ = Format(A$, "yyyy-mm-dd ")
Next i&
A$ = Trim(A$)
'--- Sauvegarde (dans le même répertoire que le classeur actif ???) ---
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & A$
Erreur:
End Sub