XL 2016 Creation de dossier et sous dossier depuis Excel

BenBenIS · 12 Juillet 2024

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 · 12 Juillet 2024

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 · 12 Juillet 2024

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 · 12 Juillet 2024

comme ceci

BenBenIS · 13 Juillet 2024

patricktoulon à dit:
comme ceci
Regarde la pièce jointe 1200456

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

TooFatBoy · 13 Juillet 2024

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 · 13 Juillet 2024

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 ?

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

TooFatBoy · 13 Juillet 2024

BenBenIS à dit:
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 · 13 Juillet 2024

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.

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

TooFatBoy · 13 Juillet 2024

BenBenIS à dit:
tu peux faire l’arborescence ensuite ?

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

TooFatBoy · 13 Juillet 2024

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

TooFatBoy · 13 Juillet 2024

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 · 13 Juillet 2024

TooFatBoy à dit:
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 · 13 Juillet 2024

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

TooFatBoy · 13 Juillet 2024

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.

XL 2016 Creation de dossier et sous dossier depuis Excel

BenBenIS

XLDnaute Nouveau

Pièces jointes

dysorthographie

XLDnaute Accro

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

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

BenBenIS

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

BenBenIS

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

BenBenIS

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

BenBenIS

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires