Sub test()
Dim fld As FileDialog, Mondossier$
racine = "D:\DossierParent\"
Mondossier = Dir(racine & "592222.2019.12.*.in", vbDirectory)
If Mondossier <> "" Then
Set fld = Application.FileDialog(msoFileDialogOpen)
With fld
.InitialFileName = (racine & Mondossier & "\*.*") 'chemin complet depuis la racine!!!!!!!!!!!!!!
.Show
End With
Else
MsgBox "il n'y a pas de dossier terminant par ""in"" et commencant par ""592222.2019.12."""
End If
End Sub