Enregistrer un fichier en changeant automatiquement la date dans l'intitulé

Bonjour,

Je dois quotidiennement extraire une feuille et l'enregistrer dans un dossier bien spécifique. Toutefois, dans le filename je voudrais inclure la date du jour automatiquement. Voici mes lignes de code :

ActiveWorkbook.SaveAs Filename:= _
"C:\Rapport_quotidien\Rapport.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("extraction.xlsm").Activate

Voici ce que j'aimerais:

ActiveWorkbook.SaveAs Filename:= _
"C:\Rapport_quotidien\Rapport_DATE.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("extraction.xlsm").Activate

Je vous remercie.

Bonjour,

Peut-être ainsi :

ActiveWorkbook.SaveAs Filename:= _
    "C:\Rapport_quotidien\Rapport_" & Format(Date, "yyyy_mm_dd") & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

PS, pense à mettre le code entre balises </>

Bon appétit

Re-Bonjour,

Merci beaucoup pour cette aide précieuse. Et j'y penserai pour la prochaine fois, autant pour moi.

Bonne journée !