Recherche

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MonFichier As String
If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
MonFichier = ThisWorkbook.Path & "\" & Range("C6").Value & ".xlsx"
 If FichierExiste(MonFichier) = True Then
       ' MsgBox "Le fichier existe on ouvre"
       Application.Workbooks.Open MonFichier
    Else
        MsgBox "Le fichier " & Range("C6").Value & " n'existe pas...", vbCritical, "Ouverture fichier"
    End If
End If
End Sub
Public Function FichierExiste(MonFichier As String)
'par Excel-Malin.com ( https://excel-malin.com )
If Len(Dir(MonFichier)) > 0 Then
      FichierExiste = True
   Else
      FichierExiste = False
   End If
End Function