Liens hypertexte avec choix du programme d'ouverture

=LIEN_HYPERTEXTE("""C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe""" & " " & """C:\test.pdf""";"C:\test.pdf")

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim R As Long [COLOR="Olive"]'numéro de la ligne selectionnée[/COLOR]
        R = Selection.Row
        
    If Target.Address = Range("B" & R).Address Then[COLOR="olive"] 'si la selection est dans la colonne B[/COLOR]
        
        Dim programme As String [COLOR="olive"]'chemin du programme à lancer[/COLOR]
            programme = "C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe"
        Dim fichier As String [COLOR="Olive"]'chemin du fichier (= valeur de la cellule selectionnée)[/COLOR]
            fichier = Selection.Value
            fichier = """" & fichier & """"[COLOR="olive"] 'nécéssité d'ajouter des guillemets[/COLOR]
    
        If Left(Selection.Value, 2) = "C:" Then [COLOR="olive"]'si la valeur de la cellule commence par "C:" => lance le programme et le fichier[/COLOR]
            Shell (programme & " " & fichier)
            Exit Sub
            
            Else [COLOR="olive"]'si la valeur de la cellule ne commence pas par "C:" = quitte la macro[/COLOR]
            Exit Sub
            
        End If
        Else [COLOR="olive"]'si la selection n'est pas dans la colonne B = quitte la macro[/COLOR]
        Exit Sub
    End If
End Sub