Modif code double clic

bonjour,

dans le fichier joint, j'ai un code qui permet de double clicker sur les résultats de la colonne A.

cela fonctionne très bien.

l'inconvénients est que le chemin d'accès doit être indiqué dans le code.

je voudrais que le code prenne en compte le chemin indiqué en colonne F dans le tableau de résultat plutôt que ce chemin qui est figé

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim chemin As String, fichier As String
Dim ligne As Integer

If Not Intersect(Target, ListObjects("Tableau1").DataBodyRange) Is Nothing Then
    chemin = "C:\Users\sylvain\Desktop\COPIE PGM K4\Nouveau dossier\"  'C:\mesdocuments\...."
    ligne = Target.Offset(0, 1).Value
    If Right(Target.Value, 4) = "" Then
        fichier = Target.Value
  

merci d'avance de votre aide.

Bonjour slygan, le forum,

j'ai un code qui permet de double clicker sur les résultats de la colonne A

• Actuellement, sur toutes les données du tableau...pour la colonne A, à tester:

If Not Intersect(Target, Me.ListObjects("Tableau1").ListColumns(1).DataBodyRange) Is Nothing Then

• Pour le chemin, à tester:

chemin = Me.ListObjects("Tableau1").DataBodyRange(Target.Row, 6)

Sinon, pas compris cette partie :............................

If Right(Target.Value, 4) = "" Then
        fichier = Target.Value
    Else: fichier = Target.Value & ""
    End If

Cordialement,

c'est bon... j'ai reussi asolutionner par moi meme.

f Not Intersect(Target, ListObjects("Tableau1").DataBodyRange) Is Nothing Then
    chemin = Cells(Target.Row, 6) 'C:\mesdocuments\...."
    ligne = Target.Offset(0, 1).Value
    If Right(Target.Value, 4) = "" Then