XL 2016 Créer et numéroter sous dossier

[KTM]

Bonsoir chers tous
Ma macro ci dessous Crée un dossier "Plage" et un sous dossier nommé

Format(.[E1], "mmm yyyy")

dans lequel sont stockées mes plages A1:C10 au format pdf.
Pas de soucis jusqu'ici
Je voudrais que mes sous dossiers soit numérotés.
J'ai changé ma ligne

chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1], "mmm yyyy") & "\" & "TRIS " & Format(.[E1], "dd mmm yyyy")

par

chemin = ThisWorkbook.Path & "\Plage\" & Month([.E1]) & "-" & Format(.[E1], "mmm yyyy") & "\" & "TRIS " & Format(.[E1], "dd mmm yyyy")

mais cela ne marche pas.
Voici mon code initialement

Sub SAVE()
    Dim chemin$, x, i&, chem$
    With ActiveSheet
        chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1], "mmm yyyy") & "\" & "TRIS " & Format(.[E1], "dd mmm yyyy")
        
        x = Split(chemin, "\")
        For i = 0 To UBound(x) - 1
            chem = chem & x(i) & "\"
            If Dir(chem, vbDirectory) = "" Then MkDir chem
        Next i
        .PageSetup.PrintArea = "$A$1:$C$10"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

 

[patricktoulon]

bonsoir

Sub SAVE()
    Dim chemin$, x, i&, chem$
    With ActiveSheet
        chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1], "mmm yyyy""\TRIS ""dd mmmm yyyy"".pdf""")
                     x = Split(chemin, "\")
        For i = 0 To UBound(x) - 1
            chem = chem & x(i) & "\"
            If Dir(chem, vbDirectory) = "" Then MkDir chem
        Next i
        .PageSetup.PrintArea = "$A$1:$C$10"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

 

[_Thierry]

Bonjour @KTM , le Forum

Ceci me saute aux yeux :
chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1],
chemin = ThisWorkbook.Path & "\Plage\" & Month([.E1])

Bonne soirée
@+Thierry
EDIT Hello Patrick

 

[patricktoulon]

salut Thierry
regarde de plus prêt mon formatage 😉
tu constatera que je fait la concat et formatage avec seulement et dans !!!!format(....)
😉

 

[KTM]

bonsoir

Sub SAVE()
    Dim chemin$, x, i&, chem$
    With ActiveSheet
        chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1], "mmm yyyy""\TRIS ""dd mmmm yyyy"".pdf""")
                     x = Split(chemin, "\")
        For i = 0 To UBound(x) - 1
            chem = chem & x(i) & "\"
            If Dir(chem, vbDirectory) = "" Then MkDir chem
        Next i
        .PageSetup.PrintArea = "$A$1:$C$10"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Merci mais mon idée est que je voudrais que par exemple mon sous dossier juin 2020 soit plus tôt 6-juin 2020

 

[patricktoulon]

Merci mais mon idée est que je voudrais que par exemple mon sous dossier juin 2020 soit plus tôt 6-juin 2020

et alors??????

chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1], "mm""-"" mmm yyyy""\TRIS ""dd mmmm yyyy"".pdf""")

 

[KTM]

Bonjour @KTM , le Forum

Ceci me saute aux yeux :
chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1],
chemin = ThisWorkbook.Path & "\Plage\" & Month([.E1])

Bonne soirée
@+Thierry
EDIT Hello Patrick

Très bien Vu Cher Thierry. C'est exact!!!

 

[KTM]

et alors??????

chemin = ThisWorkbook.Path & "\Plage\" & Format(.[E1], "mm""-"" mmm yyyy""\TRIS ""dd mmmm yyyy"".pdf""")

Super!!