Private Sub CommandButton3_Click()
Const Chemin = "J:\luluci\DOCS ARL\"
Dim NomFic As String, ArgDir As String
ArgDir = Chemin & TextBox1.Value & "*." & TextBox2.Value
NomFic = Dir(ArgDir)
If NomFic <> "" Then
ThisWorkbook.FollowHyperlink Chemin & NomFic
Else
MsgBox "Il n'existe pas de fichier :" & vbLf & ArgDir, vbCritical, Me.Caption
End If
End Sub