VBA Macro to search for a file in a folder

See next code
Adjust

.Filters.Add "Classeurs Excel", "*.xlsx"

to your file extension

Option Explicit

Sub Search_File_Picker2()
Dim WkFile As Workbook
Dim WS As Worksheet
    With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "Choisir le fichier Excel"
            .AllowMultiSelect = False
            .InitialFileName = "Fichier_Par_Defaut.xlsx"
            .Filters.Add "Classeurs Excel", "*.xlsx"
            .FilterIndex = 1
            .InitialFileName = ActiveWorkbook.Path '  Select present folder
        .Show
        If .SelectedItems.Count > 0 Then
            Set WkFile = Workbooks.Open(.SelectedItems(1))
            Set WS = WkFile.Sheets(1)
        Else
            MsgBox "No file selected", , "INFORMATION"
            Exit Sub
        End If
    End With
End Sub

Administrative Note:

Welcome to the forum.

Is your forum profile up-to-date and showing ONLY the oldest Excel PRODUCT that you need this to work for?

Members will tailor the solutions they offer to the Office PRODUCT (Excel, NOT Windows) that you have. Please check that your forum profile is up-to-date in this respect. If you aren't sure, in Excel go to File | Account and report what it says below the MS logo at the top of that page. If your product is for Mac, please also state this.

The four most recent Excel products are Excel 2019, Excel 2021, Excel 2024 and MS365 - if you are using MS365, please give this name along with the version number in your profile (e.g. MS365 Version 2306). This is in the About Excel section further down the Account page.

Thanks.

Maybe this will get you started.
Change directory path in A1. Press button and type keyword in TextBox. Enter or Tab.

Just click on a name in the ListBox to open the file because I'm not getting any errors.

Which code you were using ?

Did you try it on a different directory ?
Try this also.

Private Sub ListBox1_Click()
    Dim mybook As Workbook
    With ListBox1
        If .ListIndex > -1 Then
            Set mybook = Workbooks.Open(myDir & .List(.ListIndex, 0))
        End If
    End With
End Sub

OK, but did you try on a different directory because on my part files open without a problem.
Want to exclude the fact that it might have something to do with the filepath.

We know which code you use.
Please answer the questions asked to you.
Have you tried another directory ? Show screenshots of cell A1 with filepath. Show screenshot of ListBox1 with filenames.
We ask all of these questions because you seem to be the only one who has problems with getting the code to work properly.

Invalid attachment posted.
Also this is the 3rd time I ask you if you have tried another directory. Please do and reply.

You're welcome and thanks for rep+.