Création liste dossier n-2

[cbtitalia]

Bonjour,

Je voudrais extraire les dossiers de mon disque mais uniquement jusqu'au 2ème niveau.

Exemple : c:\tep\toto\lundi et récupérer seulement c:\tep\toto et bien sûr, sur la totalité de mon disque.

Merci

St@n

 

[tototiti2008]

Re : Création liste dossier n-2

bonjour cbtitalia,

quelle est ta version d'Excel ?

 

[cbtitalia]

Re : Création liste dossier n-2

bonjour cbtitalia,

quelle est ta version d'Excel ?

Je possède la version d'excel 2000.

 

[tototiti2008]

Re : Création liste dossier n-2

Re,

Bon, le code est assez court mais je dois avouer que j'ai un peu sué...

Edit : mais bon, plutôt fier du résultat 🙂

 

[cbtitalia]

Re : Création liste dossier n-2

Bonjour,

Existe il un moyen de mettre en dur le chemin ?

Que faut il faire pour que le filedialog fonctionne en excel2000 ?

Merci pour votre aide.

St@n

 

[tototiti2008]

Re : Création liste dossier n-2

Bonjour cbtitalia,

Pour remplacer le filedialog par un chemin en dur :

remplace

    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    FD.AllowMultiSelect = False
    Rep = FD.Show
    If Rep <> 0 Then ScanDossiers (FD.SelectedItems(1))

par

ScanDossiers("C:\")

Sinon, il y a bien GetOpenFileName pour les fichiers (à la place de FileDialog), mais pour les dossiers je ne connais pas...