Discussion :

[Sofie109]

Bonjour,

J'ai un gros problème, le voici

J'ai un répertoire avec comme chemin d'accès :J:\Accès Données\en cours

Dans ce répertoire j'ai de nouveau d'autres répertoires nommés :

- Juillet
- Août
- Septembre

Dans ces sous répertoires j'ai des fichiers avec une extension .xls

Voila ce que j'aimerai pouvoir faire :

Sous access créer une table avec le nom de chacun des fichiers .xls

En fait vu qu'il y en a bcp j'aimerai pouvoir le faire d'une maniere automatique plutot que de les retaper a la main dans une table Access.

Voici une ébauche de code, mais il ne marche pas. Il donne seulement le nom des sous répertoires mais pas des fichier .xls dedans:

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
Private Sub Commande6_Click()
 
fichier = Dir("J:\Accès Données\en cours\", vbDirectory)
fichier = Dir()
fichier = Dir()
While fichier <> ""
    MsgBox "a: " & fichier
    fichier2 = Dir("J:\Accès Données\en cours\" & fichier, vbDirectory)
    While fichier2 <> ""
        MsgBox "b: " & fichier2
        fichier2 = Dir()
    Wend
    fichier = Dir()
Wend
End Sub

PS : Pour l'instant je le mets en msgbox pour tester mon code.

Merci de votre aide

[Dolphy35]

Salut,

Pense à consulter la

Comment obtenir le contenu d'un répertoire ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "c:\"
rep = Dir("J:\Accès Données\en cours\*.xls", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
    'teste si c'est un fichier ou un répertoire
    If (GetAttr("J:\Accès Données\en cours\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
    Else
        MsgBox "Fichier " & rep
    End If
    'passe à l'élément suivant
    rep = Dir
Loop

Dolphy

[Muhad'hib]

Salut,

J'ajoute une variante à la proposition de DOLPHY.
Une fonction qui liste les fichiers même si ils sont dans des sous sous sous ... répertoires.

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
27
28
 
Sub ListeFichier(Arg_Rep As String)
Dim Nom As String
Dim Listesousrep() As String
Dim Liste As String
Dim I As Integer
 
Nom = Dir(Arg_Rep, vbDirectory)
Do Until Nom = ""
    If GetAttr(Arg_Rep & Nom) = vbDirectory And Nom <> "." And Nom <> ".." Then
        If Liste & "" = "" Then
            Liste = Arg_Rep & Nom & "\"
        Else
            Liste = Liste & ";" & Arg_Rep & Nom & "\"
        End If
    ElseIf Nom <> "." And Nom <> ".." And Right(Nom, 4) = ".xls" Then
 
        Debug.Print Arg_Rep & Nom
    End If
    Nom = Dir
Loop
 
Listesousrep = Split(Liste, ";")
For I = LBound(Listesousrep) To UBound(Listesousrep)
    ListeFichier (Listesousrep(I))
Next
 
End Sub

Comme la fonction dir s'adapte mal au fonction récurcive, j'ai lister les répertoires et on les explore aprés (d'où le tableau).

En plus je pense qu'il n'est pas utile de lister le répertoire "." ni ".."

Tu peux utiliser la fonction comme ça :

Code :

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

1
2
 
ListeFichier("J:\Accès Données\en cours\")

A toi de remplacer "Debug.Print Arg_Rep & Nom" par un enregistrement des données dans la bonne table


Il y a surement moyen de faire la même chose en plus simple mais bon

A+