Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Créer et numéroter sous dossier

  • Initiateur de la discussion Initiateur de la discussion KTM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

KTM

XLDnaute Impliqué
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
 

Pièces jointes

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
 
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
 
Merci mais mon idée est que je voudrais que par exemple mon sous dossier juin 2020 soit plus tôt 6-juin 2020
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
396
Réponses
2
Affichages
713
Réponses
3
Affichages
1 K
  • Question Question
Microsoft 365 Exit sub save As
Réponses
3
Affichages
714
Réponses
2
Affichages
722
Réponses
10
Affichages
798
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…