Enregistrer fichier en xlsx en fonction d'une cellule date

Bonjour à tous

J'ai beau fouillé partout mais je ne trouve pas de solution à mon problème, je vous explique:

je travaille sur un fichier contenant une petite macro permettant d'inscrire la date du jour dans une cellule, jusqu'ici tout va bien. Je souhaiterais cependant enregistrer ce fichier en xlsx tout en utilisant la date inscrite dans la cellule dans le nom du fichier (exemple: bleu_15-01-2021.xlsx).

Du coup j'ai fait cette macro mais rien y fait, le fichier s'enregistre sous le nom: FALSE.xlsm

Si quelqu'un a la solution je suis preneur, je joins également un fichier exemple.

Sub XLSX()

Dim Path As String, ddc As String

Path = ActiveWorkbook.Path & "\"
ddc = "Bleu" & "_" & Format(Sheets(1).Range("B6"), "dd-mm-yyyy") & ".xlsx"
ActiveWorkbook.SaveAs Filename = Path & ddc

End Sub

Je vous remercie par avance, et bonne journée à tous

Salut, pour résoudre le problème de format XLSX t'as juste à ajouter FileFormat:=xlOpenXLMWorkbook

Sub XLSX()

Dim Path As String, ddc As String
Application.DisplayAlerts = False
Path = ActiveWorkbook.Path & "\"
ddc = "Bleu" & "_" & Format(Sheets(1).Range("B6"), "dd-mm-yyyy") & ".xlsx"
ActiveWorkbook.SaveAs Filename = Path & ddc, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

End Sub

application.display alert est facultatif.

Mais pour ce qui est du fichier qui se renomme en FALSE bah je trouve pas du tout... je continue de chercher peut être que quelqu'un d'autre à la réponse

Merci Gabin ! Je viens d'essayer et en effet le fichier passe bien en xlsx, c'est déjà ça de résolu je te remercie

Cependant, le fichier s'enregistre toujours sous le nom "FALSE"...

Si quelqu'un a la solution