KTM
XLDnaute Impliqué
Bonsoir chers tous
Ma macro ci dessous Crée un dossier "Plage" et un sous dossier nommé
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
par
mais cela ne marche pas.
Voici mon code initialement
Ma macro ci dessous Crée un dossier "Plage" et un sous dossier nommé
VB:
Format(.[E1], "mmm yyyy")
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")
Code:
chemin = ThisWorkbook.Path & "\Plage\" & Month([.E1]) & "-" & Format(.[E1], "mmm yyyy") & "\" & "TRIS " & Format(.[E1], "dd mmm yyyy")
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