XL 2019 Création de dossiers selon feuille

litelsousa

XLDnaute Occasionnel

• 8 Octobre 2021

• #2

C'est nickel
Un grand merci

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 8 Octobre 2021

• #3

re
le code n'est pas correct, il est à revoir, je vais supprimer le fil
pourriez vous précisez comment sont créées les sous dossiers, le plus simple poster un classeur exemple (sans aucunes données confidentielles) avec le résultat attendu
cdt
galougalou

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 8 Octobre 2021

• #4

re
à la relecture il me semble que le code ci-dessous est plus adapté à votre problèmatique

VB:

    Sub CreationRepertoires()
    Dim dercol As Long
   
    On Error Resume Next
    i = 1
    While Cells(i, 1).Value <> ""
    MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value
     dercol = Cells(i, Cells.Columns.Count).End(xlToLeft).Column
   
    For j = 2 To dercol
    MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value & "\" & Cells(i, j).Value
    Next j
    i = i + 1
    Wend
    End Sub

cdt
galougalou

 

Dernière édition: 8 Octobre 2021

Vote positif 0 Vote négatif

litelsousa

XLDnaute Occasionnel

• 8 Octobre 2021

• #5

Pourtant ça marche très bien.

J'ai mis le dossier à faire.
Par contre, je suis en train d'essayer de le modifier pour le faire selon la feuille autre solution

 

Pièces jointes

• Créer_dossier.xlsm

  19.7 KB · Affichages: 8

Vote positif 0 Vote négatif

litelsousa

XLDnaute Occasionnel

• 8 Octobre 2021

• #6

J'avais pas vu ta réponse...

La première version marche mieux, la deuxième me met des fenêtres à valider.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 8 Octobre 2021

• #7

re
c'est dû à une msgbox qui m'a permis de contrôler l'exécution du code. je l'ai supprimé dans le fil 4
cela devrait fonctionner sans alerte maintenant. par contre vous avez raison, le code n'est pas nickel, pour l'instant la première version devrait mieux convenir. je vais tester ce soir pour trouver une réponse que je n'ai pas pour l'instant.
cdt

 

Dernière édition: 8 Octobre 2021

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 8 Octobre 2021

• #8

re
je n'avais pas vu que dans votre classeur il y avait des sous dossier en doublons. la macro ne créée pas de sous dossier doublon.
l'avantage du code présenté dans le fil 4, c'est d'aligner ligne par ligne à la dernière colonne avec données.
cdt
galougalou

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 8 Octobre 2021

• #9

Salut, une approche à tester en l'adaptant au contexte.

VB:

Option Explicit

Sub tst()
Dim sDoss As String
    sDoss = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    CreationDossier sDoss
End Sub

Private Sub CreationDossier(sDossier As String)
Dim sChaine As String
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Sub

 

Dernière édition: 8 Octobre 2021

Vote positif 0 Vote négatif