[E-03] ListBox avec liste des fichiers d'un dossier

Version imprimable

31/10/2008, 10h37
Daejung

Bonjour,

J'ai des dossiers donc le nom est de la forme 2008-10 avec des sous-dossiers, dont un sous dossier "Fichiers" contenant un ensemble de classeurs Excel

Le chemin de ces classeurs "yyyy.xls" est de la forme :

H:\xxxxx\2008-10\Fichiers\yyyy.xls

Je voudrais dans une listbox renseigner une zone de liste avec les années mois disponibles (les dossiers de la forme "2008-10") et une 2ème zone de liste avec le contenu du sous dossier "Fichiers" correspondant (H:\xxxxx\2008-10\Fichiers , dans mon exemple)

Le choix de l'année/mois (2008-10 dans l'exemple) modifiant la liste des fichiers bien sûr.

Exemple : http://cjoint.com/data/kFkBHciXri.htm

J'ai déjà fait des userforms avec ListBox mais j'ai un peu de mal à voir comment je pourrais gérer ces listes variables.

Existe-il un tutorial avec le même type de userform?

merci

J'ai surtout du mal à voir comment je peux modifier la liste des fichiers associée à la ListBox "Fichiers" quand on modifie l'année/mois
31/10/2008, 19h22
ucfoutu

Bonsoir,

si tous tes fichiers à recenser sont dans le même dossier, il te suffira d'utiliser la fonction Dir, qui admet l'utilisation de caractères génériques ("jokers")
31/10/2008, 19h34
Daejung

Pas dans le même dossier comme je le précise dans le 1er post

Citation:

J'ai des dossiers donc le nom est de la forme 2008-10 avec des sous-dossiers, dont un sous dossier "Fichiers" contenant un ensemble de classeurs Excel

Mon problème n'est pas là mais dans la rénitialisation de la liste en fonction des nouveaux paramètres Année/Mois
31/10/2008, 19h42
ucfoutu

Il te faut alors utiliser un contrôle TreeView et la récursivité, ainsi que des filtres (un filtre/dossiers et un filtre/fichiers)
Je crois bien en avoir récemment montré un exemple.
Cherche. Si tu trouves, tant mieux.
Si tu ne trouves pas, je verrai celà à mon retour de restaurant.
Fais moi savoir ...

bonsoir, un userform, 2 textbox : txtAnnee et txtMois , une list box : listbox1 et le code dans l'userform :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub txtAnnee_Change()
 Majliste
End Sub
 
Private Sub txtMois_Change()
  Majliste
End Sub
 
Sub Majliste()
  ListBox1.Clear
  yaSt = Dir("H:\xxxxx\" & txtAnnee & "-" & txtMois & "\Fichiers\*.xls")
  While yaSt <> ""
    ListBox1.AddItem yaSt
    yaSt = Dir
  Wend
End Sub

tu dis quoi :)

31/10/2008, 20h27
Daejung

C'est bon ça marche

Merci

Je n'ai pas utilisé dir mais

Code:

1
2
3
4
5
    Dim Fso As Object, Dossier As Object, NomDossier
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Dossier = Fso.GetFolder(Month_Path_id)
 
    Set Files = Dossier.Files

etc...