Bonjour,

Je fais à nouveau appel à votre aide afin de régler un petit souci que j'ai pour lister les fichiers dans une ListBox en fonction de l’extension choisie dans une première ListBox.

Après la sélection du dossier, la liste des extensions des fichiers contenus dans celui-ci s’affiche dans la première ListBox et suite au choix d’une extension, la liste des fichiers ayant cette extension s’affiche dans la deuxième ListBox.

La procédure pour la phase du choix d’un dossier et lister les extinctions des fichiers se passa bien.

Voici le code de la ListBox qui liste les extensions :
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
29
30
Private Sub TypeFich_Change()
        Dim indtype As Long
        Dim n
        ReDim Preserve Tbl(0)
        ListBox1.Clear
        nf = Dir(Me.répertoire.Value & "\" & Me.TypeFich)
        'prévoir le cas où l'extension du fichier n'est pas trouvé dans le dossier
        If nf = "" Then
            Me.ListBox1.Clear
            Me.TextBox1 = "0 Fichier"
            Exit Sub
        End If
        n = 0
        Do While nf <> ""
            indtype = 0
            Do
                If nf Like TypeFich.List(indtype) And TypeFich.Selected(indtype) Then
                    n = n + 1
                    ReDim Preserve Tbl(n)
                    Tbl(n) = nf
                Else
                    ListBox1.List = Range("Tableau1").Value
                End If
                indtype = indtype + 1
            Loop Until indtype > TypeFich.ListCount - 1
            nf = Dir
        Loop
        If n > 0 Then Me.ListBox1.List = Tbl
        Me.TextBox1 = Me.ListBox1.ListCount & IIf(Me.ListBox1.ListCount > 1, " Fichiers", " Fichier")
End Sub
Mais dans la deuxième ListBox de 3 colonnes (Nom fichier, Date, Taille) qui liste les fichiers en fonction de l’extension choisie, ne s’affiche que la première colonne.

Que faut-il modifier pour afficher la 2ème et la 3ème colonnes.

Merci d’avance pour votre aide.
@+