XL 2016 Créer et numéroter sous dossier

KTM · 13 Juin 2020

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

VB:

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

Code:

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

par

Code:

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

Code:

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 · 13 Juin 2020

bonsoir

VB:

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 · 13 Juin 2020

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 · 13 Juin 2020

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

KTM · 13 Juin 2020

patricktoulon à dit:

bonsoir

VB:

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 · 13 Juin 2020

KTM à dit:
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??????

VB:

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

KTM · 13 Juin 2020

_Thierry à dit:
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 · 13 Juin 2020

patricktoulon à dit:
et alors??????

VB:

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

Super!!

XL 2016 Créer et numéroter sous dossier

KTM

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

Discussions similaires