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

Créer une discussion
  • 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 !

S'inscrire
KTM

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

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Merci mais mon idée est que je voudrais que par exemple mon sous dossier juin 2020 soit plus tôt 6-juin 2020
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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ésolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
632
Nico2978
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
394
Gégé-45550
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
713
halecs93
C
  • Question Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
409
Casim
C
E
  • Question Question
Microsoft 365 GetFolder et Sharepoint
Réponses
3
Affichages
1 K
eric72
E
  • Question Question
XL 2021 Comment créer un code VBA afin de création un chemin d'accès universel
Réponses
8
Affichages
1 K
AugusteP
  • Question Question
XL 2021 comment convertir et enregistrer en pdf tout en conservant la date d'une textbox vba
Réponses
2
Affichages
491
AugusteP
  • Question Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
433
AugusteP
  • Résolu(e)
XL 2013 (RESOLU) Adapter un code
Réponses
8
Affichages
615
TooFatBoy
T
  • Question Question
XL 2016 besoin de votre aide pour adapté une macro
Réponses
6
Affichages
916
AtTheOne
  • Résolu(e)
XL 2013 un dossier qui ne veut pas etre supprimer avant la fermeture du fichier
2
Réponses
18
Affichages
1 K
patricktoulon
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
537
Oneida
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
2 K
Usine à gaz
  • Question Question
Microsoft 365 Exit sub save As
Réponses
3
Affichages
714
Intermoi
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
659
Mody200
M
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
733
Zon
Z
  • Question Question
XL 2016 Nom de fichier ou numéro incorrect
Réponses
2
Affichages
722
KTM
S
  • Question Question
XL 2016 VBA - problème de code
Réponses
10
Affichages
797
bastring
B
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…