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

[jamespatagueul]

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]

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

A+ François

 

[patricktoulon]

Bonjour
c'est assez simple en fait

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]

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

A+ FrançoisBonsoir,

Bonsoir,
Merci pour ton aide.

 

[jamespatagueul]

Bonjour
c'est assez simple en fait

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]

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]

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]

bonjour

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

Bonjour,

Oui.

Merci

 

[patricktoulon]

re

 

[jamespatagueul]

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]

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]

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]

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