Enregistrement fichier Excel format AAAAMMJJ

Bonjour à tous,

Voilà un petit problème et j'ai beau écumer le net et les forums Excel je n'est pas trouvé la solution.

Actuellement je sauvegarde mon fichier sans problème mais dès que la date est comprise entre le 1er et le 9 et idem pour les mois je me retrouve avec un format d'enregistrement de type 201754 alors que j'aimerai avoir 20170504.

Sub WbClose()
Set Wb_Ext = Workbooks("Extraction")
Set Wb_Mas = Workbooks("Modèle Masque - adresse -")

rep = Wb_Mas.Path
a = Year(Date): m = Month(Date): J = Day(Date)
Wb_Ext.SaveCopyAs rep & "\Extractions\" & "Extraction" & a & m & J & ".xls"
End Sub

Je n'arrive pas à forcer le format de la date, si vous avez des idées ou même la solution je suis prenneur!

Bonjour,

essaie ainsi :

strdate = Format(Date, "yyyymmdd")
Wb_Ext.SaveCopyAs rep & "\Extractions\" & "Extraction" & strdate & ".xls"

Merci Jean Eric

Dsl de répondre aussi tard ta réponse est parfaite

Merci