Enregistrement sans extension

Bonjour,

J'ai créé une macro(je suis pas un expert hein) pour enregistrer le fichier en cachant certaines feuilles, mais lorsque j'enregistre il me créé un fichier sans extension alors que je voulais un xlsx

mon code :

Sub enregistrer()

Dim TheFileToSave As Variant

Sheets("ARTICLES").Visible = xlVeryHidden
Sheets("BDD").Visible = xlVeryHidden
Sheets("CONTROLE").Visible = xlVeryHidden

TheFileToSave = Application.GetSaveAsFilename("MicrosoftExcel,*.xlsx")
If TheFileToSave = False Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs TheFileToSave
Application.DisplayAlerts = True

End Sub

Merci par avance

Bonjour

peux tu nous joindre ton fichier

Crdlt

Pas de soucis, voilà

Merci