Discussion :

[alexkickstand]

bonjour,

j'aimerais lister tous les noms des dossiers d'un répertoire et les lister dans une liste déroulante
j'ai trouvé un exemple de code mais j'ai une erreur d'éxécution pour "ListBox.List"

erreur de compilation : membre de méthode ou de données introuvable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub ChercherRépertoire() 
Dim Liste() As String 
Dim a As Integer 
a = 0 
MyPath = "c:\temp\" 
MyName = Dir(MyPath, vbDirectory) 
Do While MyName <> "" 
             ' Ignore le répertoire courant et le répertoire contenant le répertoire courant 
    If MyName <> "." And MyName <> ".." Then 
            ' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire. 
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then 
            ReDim Preserve Liste(a) 
            Liste(a) = MyName 
        End If  ' 
    End If 
    MyName = Dir    ' Extrait l'entrée suivante 
    Loop 
ListBox.List = Liste 
End Sub

merci d'avance

ps : si vous avez d'autre solutions je suis preneur !!!

Alex

[ClaudeLELOUP]

Si la zone de liste modifiable, dans le "formulaire1" s'appelle "ListBox"
propriété origine source = "Liste valeurs",
voici la sub pour alimenter le contenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ChercherRépertoire()
Dim Liste As String
Dim a As Integer
a = 0
MyPath = "c:\temp\"
myName = Dir(MyPath, vbDirectory)
Do While myName <> ""
             ' Ignore le répertoire courant et le répertoire contenant le répertoire courant
    If myName <> "." And myName <> ".." Then
            ' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire.
        Liste = Liste & myName & ";"
    End If
    myName = Dir    ' Extrait l'entrée suivante
    Loop
'pour enlever le ; final
Liste = Left(Liste, Len(Liste) - 1)
Forms!Formulaire1.ListBox.RowSource = Liste
End Sub

[alexkickstand]

Bonjour, merci beaucoup pour ton aide ca fonctionne au poil !!!

merci encore

Alex

[alexkickstand]

Hello je viens de me rendre compte que si j'ai des fichiers a la racine de mon "repertoire_test" il me les liste dans la listbox

code source :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub EntêteFormulaire_click()
 
   Call ChercherRépertoire
 
End Sub
 
Sub ChercherRépertoire()
Dim Liste As String
Dim a As Integer
a = 0
MyPath = "c:\repertoire_test\"
myName = Dir(MyPath, vbDirectory)
Do While myName <> ""
' Ignore le répertoire courant et le répertoire contenant le répertoire courant
If myName <> "." And myName <> ".." Then
' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire.
Liste = Liste & myName & ";"
End If
myName = Dir ' Extrait l'entrée suivante
Loop
'pour enlever le ; final
Liste = Left(Liste, Len(Liste) - 1)
Forms!test.ListBoxClient.RowSource = Liste
End Sub

merci d'avance

Alex