Discussion :

[julien13200]

bonjour!!
voila une semaine que je me gratte la tete sans parvenir a mes fins...
j'ai une feuille excel avec une cellule dans laquelle je renseigne l'adresse d'un dossier "c:\toto".
je voudrai que l'utilisateur clique sur un bouton et que tous les dossiers et fichiers présents dans "c:\toto" soit listés dans la feuille active...
est-ce possible?? (j'arrive a lister les fichiers mais pas les dossiers...
Merci d'avance...

[julien13200]

Tiens j'ai gribouillé va et ca marche...
qu'est ce que t'en pense??

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
26
 
Sub CommandButton1_Click()
Dim NomRepertoire(100) As String
 
' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:"    ' Définit le chemin d'accès.
myname = Dir(MyPath, vbDirectory)    ' Extrait la première entrée.
i = 1
Do While myname <> ""    ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If 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
            NomRepertoire(i) = myname
        End If    ' représente un dossier.
    End If
    myname = Dir    ' Extrait l'entrée suivante.
    i = i + 1
Loop
For j = 1 To i
Cells(j, 2) = NomRepertoire(j)
Next j
End Sub

Merci pour ton aide!!