Ouverture d'un fichier avec un nom non-constant

Bonjour,

Je recherche un partie de code qui permettra d'ouvrir un fichier qui a un nom variable.
Dans mon cas le nom du fichier c'est "0912 ret au 1211.xls"

Je cherche à ouvrir le fichier qui commence par "0912" le reste n'a pas d'importance.

Je suis relativement novice en vba

Merci d'avance de votre aide.

Sub Extraction()
    If MsgBox("Etes-vous sûr de vouloir extraire les données", vbYesNo, "Demande de confirmation") = vbYes Then
    
    Date_Lundi = Sheets("Ex_lundi").Range("B2")
    MsgBox "La valeur est " & Date_Lundi & " "

'partie du code qui ne fonctionne pas    
     Fichier_Lundi = Dir("C:\Users\david\OneDrive\CHI-W\2019\Test Macro\("Date_Lundi")*.xls")      If Fichier_Lundi <> "" Then
           Workbooks.Open Filename:=Fichier_Lundi
       Else
           MsgBox "Fichier introuvable"
       End If

    End If
End Sub