Erreur 455 : lister des fichers Dans une ComboBox

**Peerl** · 24/05/2018, 12h01

Salut

Je travail sur un projet : Recherche Multi-Critères sur une feuille qui se trouve dans plusieurs classeur sous le même nom , y'a que les chiffres qui changent mais pas la structures du tableau ni les entêtes/titres .

Pour l'instant , ce que j'ai pu avoir comme idée : lister les fichiers dans une ComboBox puis une fois le classeur est sélectionné, une autre comboBox aura les noms de tout les feuilles du classeur, pour que l'utilisateur puisse choisir la feuille concernée ET ENSUITE effectuer la recherche Multi-Critères sur cette feuille ( les autres comboBox se remplissent avec les entêtes du tableau de la feuille choisi = critères ) .

Première étapes est de pouvoir lister les fichiers dans ma ComboBOX :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Call RechercheClasseursSurDisque
End Sub

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
Sub RechercheClasseursSurDisque()
Dim Classeurs() As String, I As Long
With Application.FileSearch
    .NewSearch
    .FileType = msoFileTypeExcelWorkbooks
    .LookIn = " "   '  Ici on met le chemin
    .SearchSubFolders = True
    .Execute
    With .FoundFiles
        ReDim Classeurs(1 To .Count, 1 To 1)
        For I = 1 To .Count
        Classeurs(I, 1) = .Item(I)
        Liste_Classeur.Classeur.AddItem .Item(I)
        Next I
        Application.ScreenUpdating = False
        With Range("A1").Resize(.Count)
            .Value = Classeurs
            .Sort [A1]
        End With
    End With
End With
End Sub