SI... MERCI ajouter un dossier "année " au code suivant

bonjour a tous et toutes

j'ai trouvé ce code qui fonctionne très bien

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    Dim Chemin As String, Fichier As String, Rep As String
    Chemin = "C:\Users\Pascal\Desktop\testsave\"
    'Chemin = ThisWorkbook.Path & "\"
    'créer un dosier avec le nom du mois et l'année en cours
    'si le mois change un autre dossier est créer
    Rep = Application.Proper(MonthName(Month(Date))) & " " & Year(Date)

    'gestion des erreurs
    On Error Resume Next
    'définition du chemin
    MkDir Chemin & Rep
    On Error GoTo 0
    Chemin = Chemin & Rep & "\"
    Sheets("Feuil1").Copy
    'copie de la feuille en ajoutant F devant le n° qui est en "C4" et +la date
    Fichier = Sheets("Feuil1").Range("C4") & " " & "F" & Format(Date, "ddmmyyyy") & ".Pdf"
    With ActiveWorkbook
        'code qui enregistre en .pdf
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, Quality:=xlQualityStandard, _
                             IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                             From:=1, To:=1, OpenAfterPublish:=False
        'ferme le classeur créer
        .Close savechanges:=False
        'retabli les arlertes windows
        Application.DisplayAlerts = True
        'message pour dire que le fichier a bien été enregistrer
        'que le chemin est bon
        MsgBox ("Enregistré dans le dossier -Factures-")
    End With
End Sub

mais je voudrais en plus qu'il créer un dossier année dans lequel après il créer les mois avec les documents

avec en plus le changement de l'année en fin d'année

actuellement il enregistre tous les documents dans le même mois et changent de mois dès la détection du dernier jour du dit mois

Bonjour,

erreur, je n'avais pas tout vu...

eric

bonsoir a tous et toutes

Eriiic n'as pas tout lu alors je fais appel a d'autres lumières pour m'éclairer sur le soucis