Chemin dynamique dans macro

Bonjour

j'ai créé la macro ci-dessous pour que le fichier PDF se créé automatiquement et s'enregistre dans un dossier bien précis. ( stats / 2019)

Néanmoins, je souhaiterais rendre ce chemin dynamique c'est à dire que dès janvier 2020, le PDF s'enregistre dans le dossier 2020 et non 2019.

pouvez vous m'aider merci

Sub ArchiveCMDASHBOARD()

Dim CheminAcces As String

Dim Reponse As Integer

CheminAcces = "C:\MesDocuments\stats\2019\"

Reponse = MsgBox("Désirez-vous sauvegarder le rapport ?", vbQuestion + vbYesNo, "ENREGISTREMENT")

If Reponse = vbYes Then

Feuil2.ExportAsFixedFormat xlTypePDF, CheminAcces & Feuil3.Range("H1").Value & " - " & "CREDIT MANAGEMENT DASHBOARD " & Feuil3.Range("H2").Value & " " & Feuil3.Range("G1").Value & ".pdf", xlQualityStandard, True, False, , , False

MsgBox "Votre rapport STATS DE " & Feuil3.Range("H2").Value & Feuil3.Range("G1").Value & " a été sauvegardé.", vbOKCancel + vbInformation, "SAUVEGARDE"

Else

Exit Sub

End If

End Sub

Bonjour,

Un essai :

CheminAcces = "C:\MesDocuments\stats\" & Year(Date) & "\"

Date est l'équivalent VBA de la fonction AUJOURDHUI().

c est bon ca marche

merci bcp