Option Explicit
Sub test()
Dim Fichier As Variant, f As String
choix:
Fichier = Application.GetOpenFilename("Text file (*.txt), *.txt")
If VarType(Fichier) = vbBoolean Then
MsgBox "action annulée": Exit Sub
Else
f = Mid(Fichier, InStrRev(Fichier, "\") + 1, Len(Mid(Fichier, InStrRev(Fichier, "\") + 1)) - 4)
If Not f Like "Test_*" Then MsgBox "fichier invalide...": GoTo choix
'tes actions
End If
End Sub