XL 2016 Creation de dossier et sous dossier depuis Excel

dysorthographie

XLDnaute Accro

• 12 Juillet 2024

• #2

Bonsoir,
Si ça peut t'aider.

Recherche & référence - FS0(S)

Tout ce que vous vouliez savoir sur FSOsans avoir osé le demander! 'Permet de vérifier si le répertoire dont le nom est précisé en paramêtre (Repertoires) existe. Retourne True s'il existe, sinon False Public Function Repertoires_Existe(Repertoires) Dim FSO Set FSO =...

excel-downloads.com

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Juillet 2024

• #3

bonjour
vu la structure de ta table
dans un premier temps
il te faut simplement combler les blancs pour pouvoir faire une lecture lineaire

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Juillet 2024

• #4

comme ceci

 

Vote positif 0 Vote négatif

B

BenBenIS

XLDnaute Nouveau

• 13 Juillet 2024

• #5

patricktoulon à dit:

comme ceci
Regarde la pièce jointe 1200456

Cliquez pour agrandir...

OK looks good to me, mais qu'est-ce que je fais ensuite ? Merci Patrick

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2024

• #6

Bonjour,

Juste une question en passant : tu es sûr de ta numérotation ??? 🤔
Par exemple, en D74, c'est bien 2.1 - LEGAL ?

 

Vote positif 0 Vote négatif

B

BenBenIS

XLDnaute Nouveau

• 13 Juillet 2024

• #7

TooFatBoy à dit:

Bonjour,

Juste une question en passant : tu es sûr de ta numérotation ??? 🤔
Par exemple, en D74, c'est bien 2.1 - LEGAL ?

Cliquez pour agrandir...

Well spoted TooFatBoy, mais je peux faire un peu de manuel ensuite, pas grave 🙂

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2024

• #8

BenBenIS à dit:

je peux faire un peu de manuel ensuite, pas grave 🙂

Cliquez pour agrandir...

Soit, mais à partir de la ligne 74, ce sont les noms de tous les dossiers des niveaux 4, 5 et 6 qui sont faux.
Ca fait beaucoup de noms à rectifier (environ 500, à vue de pif)).


Autre problème : il ne faut pas de caractères spéciaux genre / ou : ou \ dans les noms des dossiers. 😉

 

Dernière édition: 13 Juillet 2024

Vote positif 0 Vote négatif

B

BenBenIS

XLDnaute Nouveau

• 13 Juillet 2024

• #9

TooFatBoy à dit:

Soit, mais à partir de la ligne 74, ce sont les noms de tous les dossiers des niveaux 4, 5 et 6 qui sont faux.
Ca fait beaucoup de noms à rectifier (environ 500, à vue de pif)).


Autre problème : il ne faut pas de caractères spéciaux genre / ou : ou \ dans les noms des dossiers. 😉

Cliquez pour agrandir...

Ok je corrige ça, tu peux faire l’arborescence ensuite ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2024

• #10

BenBenIS à dit:

tu peux faire l’arborescence ensuite ?

Cliquez pour agrandir...

Pas sûr que j'y arrive, mais je peux essayer si tu veux. 😉

 

Dernière édition: 13 Juillet 2024

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2024

• #11

Ca y est, j'ai pondu un truc, mais ATTENTION, quand ou joue avec les créations de dossiers et que le code est boiteux, on risque de se retrouver avec un gros bazar !!!

VB:

Sub CreerArborescence()
'
Dim DerLig As Long, x As Long, y As Long
Dim Depart As Range
Dim DernierDossier As String

    ChDrive Left(ThisWorkbook.Path, 3)
    ChDir ThisWorkbook.Path
    DerLig = ActiveSheet.UsedRange.Rows.Count
    x = 1
    y = 2
    With ActiveSheet
        While y < DerLig
            If .Cells(y, x).Value <> "" Then
                DernierDossier = ".\" & .Cells(y, x).Value
                MkDir (DernierDossier)
                y = y + 1
            Else
                ChDir (DernierDossier)
                x = x + 1
                While .Cells(y, x).Value = "" And x > 1
                    ChDir (".\..\")
                    x = x - 1
                Wend
            End If
        Wend
    End With

End Sub

 

Dernière édition: 13 Juillet 2024

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2024

• #12

Arf ! 🙁 Ca plante à la ligne 701 parce que l'arborescence dans ton tableau ne convient plus : il y a des lignes vides.

Donc, supprimer les lignes vides dans ton tableau, et tout devrait rentrer dans l'ordre. 😉

 

Pièces jointes

• FOLDER STRUCTURE.xlsm

  33.4 KB · Affichages: 10

Dernière édition: 13 Juillet 2024

Vote positif 0 Vote négatif

B

BenBenIS

XLDnaute Nouveau

• 13 Juillet 2024

• #13

TooFatBoy à dit:

Arf ! 🙁 Ca plante à la ligne 701 parce que l'arborescence dans ton tableau ne convient plus : il y a des lignes vides.

Cliquez pour agrandir...

OK je remets ça au propre demain et je renvoi. Merci pour ton temps, efforts !

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2024

• #14

J'ai ajouté ton classeur modifié en retour dans mon message précédent. 😉

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2024

• #15

Franchement, la structure de ton tableau était absolument parfaite (à part les lignes vides). 🤩

Depuis le temps que j'essayais de trouver une façon claire de représenter une arborescence de disque dur, j'ai enfin trouvé mon bonheur. 👍

Le fait que tu aies sauté une ligne à chaque nouveau niveau m'a permis de pondre un code relativement simple.

 

Vote positif 0 Vote négatif