XL 2016 Creation de dossier et sous dossier depuis Excel

[BenBenIS]

Bonjour le forum,

Avant tout, un grand merci a tout les gurus Excel qui nous aident et partagent leur expertise !

Voila, je cherche a créer une longue arborescence dans explorer depuis Excel avec dossier et sous dossier.
Je pense que ça peut se faire via powershell mais mes compétences sont limitées.

Est-ce quelqu'un peut m'aider svp ?

Ci joint le fichier Excel en question.

Merci

 

[dysorthographie]

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

 

[patricktoulon]

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

 

[patricktoulon]

comme ceci

 

[BenBenIS]

comme ceci
Regarde la pièce jointe 1200456

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

 

[TooFatBoy]

Bonjour,

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

 

[BenBenIS]

Bonjour,

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

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

 

[TooFatBoy]

je peux faire un peu de manuel ensuite, pas grave

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.

 

[BenBenIS]

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.

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

 

[TooFatBoy]

tu peux faire l’arborescence ensuite ?

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

 

[TooFatBoy]

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 !!!

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

 

[TooFatBoy]

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.

 

[BenBenIS]

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

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

 

[TooFatBoy]

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

 

[TooFatBoy]

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.