Dim RéfFic As String
RéfFic = RéfFicApprox("Q:\AAAAA\BBBB\" & Me.ComboBox7.Value & "\" & Year(Me.DTPicker1.Value), _
Me.ComboBox3.Value & "*", "*" & Me.TextBox1.Value & "*.pdf")
If Left$(RéfFic, 1) <> "(" Then
Hyperlinks.Add Anchor:=Range("D" & Lig), Address:=RéfFic, TextToDisplay:=Me.TextBox1.Value
Else
MsgBox "Fichier non trouvé." & vbLf & RéfFic, vbExclamation, Me.Caption & " - " & CommandButton1.Caption
End If