Lister l'arboréssance d'un dossier

Thomas · 19 Mars 2005

Bonjour le forum,

apres avoir fait un tour dans la base, je n'ai pas trouvé de poste à ce sujet.

est il possible en VBA de lister le contenu d'un dossier? je sais que par extention cela est possible mais ce que je souhaite faire c'est de lister uniquement le non des dossiers et sous dossiers.

D'avance merci

(sinon pour la recherche de fichier '*.xls' j'ai toujours vu une recherche à l'endroit ou ce trouve le fichier contenant la macro!! est il possible d'utiliser une API afin d'utiliser l'explorateur de fichier windows?)

_Thierry · 19 Mars 2005

Bonjour Thomas,

J'avais trouvé ceci il y a longtemps :

=> Lien supprimé

Bon Samedi
@+Thierry

Pour ton PS regarde cette réponse de Ti

Sub ouvrir()
Dim Fichier
Fichier = Application.GetOpenFileName('Tous les fichiers (*.*),*.*')
If Fichier <> False Then ActiveWorkbook.FollowHyperlink Fichier
End Sub

Fil => Lien supprimé

Thomas · 19 Mars 2005

Merci Thierry pour ces infos.

Thomas®

Sylvain · 20 Mars 2005

bonjour,

moi j'ai eu ça mais je sais plus où :

Sub liste_répertoires(ByVal mypath As String)
' Affiche les noms dans mypath représentant des dossiers.
myname = Dir(mypath, vbDirectory)    ' Extrait la première entrée.
Do While myname <> ''                ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If myname <> ':' And myname <> '::' And myname <> '.' And myname <> '..' Then
        ' Utilise une comparaison au niveau du bit pour
        ' vérifier que MyName est un dossier.
        If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
            Call ajoute(myname & Application.PathSeparator, mypath, 'répertoires')
        End If    ' représente un dossier.
    End If
    myname = Dir    ' Extrait l'entrée suivante.
Loop
End Sub

La partie en itallique est une procédure que je lance à chaque nouveau répertoire et qui est à personnaliser.

Thomas · 20 Mars 2005

Merci Sylvain pour ce code,

mais je n'arrive pas à le lancer.

il faut que je l'ajoute aux code que j'ai eu par Michel?

D'avance merci

Sylvain · 20 Mars 2005

bonjour,

je ne sais pas de quel code on parle, voici un exemple d'adaptation pour lister le contenu d'un répertoire dans la colonne A du classeur ouvert (la partie en itallique a été adaptée) :

Sub liste_répertoires(ByVal mypath As String)
Dim myname As String
' Affiche les noms dans mypath représentant des dossiers.
myname = Dir(mypath, vbDirectory)    ' Extrait la première entrée.
Do While myname <> ''                ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If myname <> ':' And myname <> '::' And myname <> '.' And myname <> '..' Then
        ' Utilise une comparaison au niveau du bit pour
        ' vérifier que MyName est un dossier.
        If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
            'traite un dossier
            Cells(ActiveCell.Row + 1, 1).Select
            ActiveCell.Value = mypath & Application.PathSeparator & myname
        End If    ' représente un dossier.
    End If
    myname = Dir    ' Extrait l'entrée suivante.
Loop
End Sub

Appel de la procédure :

Sub liste_repertoiresC()
  Range('a1').Select
  Call liste_répertoires('c:')
End Sub

Thomas · 21 Mars 2005

Merci pour votre aide

Lister l'arboréssance d'un dossier

Thomas

Guest

_Thierry

XLDnaute Barbatruc

Thomas

Guest

Sylvain

XLDnaute Occasionnel

Thomas

Guest

Sylvain

XLDnaute Occasionnel

Thomas

Guest

Discussions similaires