mettre ds list box nom de classeurs

Option Explicit

Dim Chemin As String

Private Sub UserForm_Initialize()
Dim ThisBookPath As String
Dim ChercheFichier As FileSearch
Dim i As Integer

Set ChercheFichier = Application.FileSearch
ThisBookPath = ThisWorkbook.Path
Chemin = ThisBookPath 'changer ici pour mettre un répertoire fixe

    With ChercheFichier
        .NewSearch
        .Filename = '*externe*.XLS'
        .LookIn = Chemin
        .SearchSubFolders = False
        .Execute msoSortByFileName, msoSortOrderAscending
            If .Execute > 0 Then
                With .FoundFiles
                    For i = 1 To .Count
                        ListBox1.AddItem Dir(.Item(i))
                    Next i
                End With
            Else
                MsgBox 'Pas de Fichier trouvé dans ' & Chemin
            End If
    End With
Set ChercheFichier = Nothing
End Sub


Private Sub ListBox1_Click()
Workbooks.Open Chemin & ListBox1
End Sub

Cliquez pour agrandir...