Discussion :

[domibigoudi]

Bonjour,

Je cherche le code afin de lister tous les fichiers d'un répertoire et ses sous-répertoires.

Auriez-vous un code ou une adresse pour trouver la solution.

Merci et bonne journée.

[Beub']

Bonjour,

Alors alors...

Google => "vba access lister contenu répertoire" =>
http://access.developpez.com/faq/?pa...ep#contenu_rep



Déjà utilisé, fonctionne très bien

Cordialement,
Beub'

[domibigoudi]

Bonjour et merci,

Je connaissais ce code sauf qu'il ne liste que le répertoire seul, or je cherche aussi à connaître les fichiers dans les sous-répertoires.

Bonne journée.

[Beub']

A priori, je dirais qu'il s'agit simplement d'adapter le code... Tu mets dans un module ce code :

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
Public Sub ListeRepertoire(RepertoireDeBase As String)
 
Dim rep As String
 
'obtient le premier fichier ou répertoire qui est dans "RepertoireDeBase"
rep = Dir(RepertoireDeBase, vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
    If (rep <> "." And rep <> "..") Then
        'teste si c'est un fichier ou un répertoire
        If (GetAttr(RepertoireDeBase & rep) And vbDirectory) = vbDirectory Then
            MsgBox "Répertoire " & rep
            ListeRepertoire (RepertoireDeBase & rep & "\")
        Else
            MsgBox "Fichier " & rep
        End If
        'passe à l'élément suivant
    End If
    rep = Dir
Loop
End Sub

Et tu l'appelles sur l'évènement que tu veux avec le répertoire que tu veux, sans oublier que "répertoire de base" doit finir par "\"... donc "C:\", ou "C:\Truc\"... "C:\Truc" ne fonctionnera pas.

Je n'ai pas testé complètement par contre, donc pas sûr que ça fonctionne

[domibigoudi]

Re,

J'ai testé le code et il fonctionne mais il ne lit pas tous les sous-répertoires, cad un Rep dans un Rep dans un Rep,... sur plusieurs niveaux.

Merci.

[Beub']

Re,

J'ai bien compris ce que tu voulais, pas la peine de copier-coller ta réponse deux fois de suite...
Si tu relis bien le code que j'ai fourni dans le post précédent, tu constateras que ce n'est pas exactement le même que celui fourni dans la FAQ. Je l'ai adapté rapidement pour qu'il fasse dans la récursivité (tu noteras l'appel de la Sub ListeRepertoire au sein même de la Sub ListeRepertoire).

Après l'avoir testé (à l'instant), je peux te dire qu'il ne tourne pas.

Seulement voilà, Google n'a pas dit son dernier mot... Solution developpez.com :
http://vb.developpez.com/faq/?page=Fichiers#rep_sousrep

Après l'avoir testée, celle-ci fonctionne et fait ce que tu demandes.

Cordialement,
Beub'.

[domibigoudi]

Bonjour et merci pour la réponse.

Cela fonctionne comme je le désire.

Bonne journée.

+1 pour ta réponse.