Microsoft 365 Création de sous dossier dans dossier aléatoire

jamespatagueul · 21 Novembre 2022

Bonjour à tous,

Je cherche à créer en VBA des sous sous dossiers ( NOM Prénom) dans différents dossiers.
J'ai déjà créer l'arborescence, je souhaite donc maintenant pouvoir créer le reste selon un onglet.

structure :
colonne A : NOM
colonne B : Prénom
colonne C : Etablissement (5 différents)
départ de la liste de A3 à A xxx (évolutif)

arborescence : thisworkbook\annee\sites\

Comment en VBA pouvoir créer les dossiers NOM Prénom dans chaque sites qui convient.

Merci à tous

fanfan38 · 21 Novembre 2022

Bonjour
En l'absence de fichier....
un exemple

A+ François

patricktoulon · 21 Novembre 2022

Bonjour
c'est assez simple en fait

VB:

Option Explicit
Sub createfolder()
    Dim Fparent$, i&, q&, chemin$, t, D$ 'variable
    
    Fparent = ThisWorkbook.Path & "\annee\sites" 'chemin de base
    
    With Feuil1 'object feuille a adapter
        
        For i = 3 To Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
            
            'chemin = la base & "\" & .la colonne 3 & "\" & lacolonne 1 et 2
            
             chemin = Fparent & "\" & .Cells(i, 3) & "\" & .Cells(i, 1) & " " & .Cells(i, 2) 'concat
            
            t = Split(chemin, "\") 'recoupe
            
            D = t(0) 'd=le premier dossier dans la base
            
            For q = 1 To UBound(t) 'boucle a partir du 2d segment du chemin
                
                D = D & "\" & t(q) 'concat progressif  avec separateur"\"
                
                If Dir(D, vbDirectory) = "" Then MkDir (D) 'test d'existance et creation si il le faut
            
            Next
        
        Next
    
    End With

End Sub

je joins un fichier exemple

jamespatagueul · 21 Novembre 2022

fanfan38 à dit:
Bonjour
En l'absence de fichier....
un exemple

A+ FrançoisBonsoir,

Bonsoir,
Merci pour ton aide.

jamespatagueul · 21 Novembre 2022

patricktoulon à dit:

Bonjour
c'est assez simple en fait

VB:

Option Explicit
Sub createfolder()
    Dim Fparent$, i&, q&, chemin$, t, D$ 'variable
   
    Fparent = ThisWorkbook.Path & "\annee\sites" 'chemin de base
   
    With Feuil1 'object feuille a adapter
       
        For i = 3 To Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
           
            'chemin = la base & "\" & .la colonne 3 & "\" & lacolonne 1 et 2
           
             chemin = Fparent & "\" & .Cells(i, 3) & "\" & .Cells(i, 1) & " " & .Cells(i, 2) 'concat
           
            t = Split(chemin, "\") 'recoupe
           
            D = t(0) 'd=le premier dossier dans la base
           
            For q = 1 To UBound(t) 'boucle a partir du 2d segment du chemin
               
                D = D & "\" & t(q) 'concat progressif  avec separateur"\"
               
                If Dir(D, vbDirectory) = "" Then MkDir (D) 'test d'existance et creation si il le faut
           
            Next
       
        Next
   
    End With

End Sub

je joins un fichier exemple

Bonsoir,
et merci de ton aide.
J'ai réadapter à mon contexte, et nikel.

jamespatagueul · 7 Mars 2023

Bonjour à tous,
je déterre ce post, car l'arborescence a changée, et je n'arrive pas a adapter.

nouvelle arborescence : thisworkbook\annee\sites\etablissement 1 ou 2 ou 3 ...\essai\equipe & "etablissement 1 ou 2 ou 3 ..."\

je souhaiterai que dans le dossier final soit creer les dossiers nominatifs, comme le fichier exemple fournir par patricktoulon, qui fonctionne a merveille, mais avec la nouvelle arborescence.

Merci de votre aide

patricktoulon · 7 Mars 2023

bonjour

: thisworkbook\annee\sites\etablissement 1 ou 2 ou 3 ...\essai\equipe & "etablissement 1 ou 2 ou 3 ..."\

est ce que les deux parties en rouge doivent être identiques

jamespatagueul · 7 Mars 2023

patricktoulon à dit:
bonjour

est ce que les deux parties en rouge doivent être identiques

Bonjour,

Oui.

Merci

patricktoulon · 7 Mars 2023

jamespatagueul · 7 Mars 2023

Merci,

comment faire en sorte que je puisse creer comme le premier fichier les dossier nom et prenom, dans chaque essai\equipe & "etablissement x"\

patricktoulon · 7 Mars 2023

re
dis moi un peu depuis 2010 tu n'a rien appris?
et puis comment veux tu que je sache ; quelle nom ? avec quel dossier ? combien de nom vont avec combien de dossier ? etc.. etc...
je ne suis pas devin

jamespatagueul · 9 Mars 2023

patricktoulon à dit:
re
dis moi un peu depuis 2010 tu n'a rien appris?
et puis comment veux tu que je sache ; quelle nom ? avec quel dossier ? combien de nom vont avec combien de dossier ? etc.. etc...
je ne suis pas devin

Bonjour,
Merci de ta réponse.
j'ai trouver ma solution.

patricktoulon · 9 Mars 2023

Bonjour
Ha!! oui tu a trouvé
ha!! ben pour changer plutôt que de venir chercher une solution ,ça te dirais d'en proposer une

je dis moi j'dis rien hein

Microsoft 365 Création de sous dossier dans dossier aléatoire

jamespatagueul

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Pièces jointes

jamespatagueul

XLDnaute Occasionnel

jamespatagueul

XLDnaute Occasionnel

jamespatagueul

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

jamespatagueul

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Pièces jointes

jamespatagueul

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

jamespatagueul

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires