Ouvrerture lien hyperexte par double clic

Bonsoir tous,

Merci d'avance pour votre aide.

Mon souci : un lien hypertexte crée dans une cellule Excel et je souhaiterais que le fichier en lien ne s'ouvre que par double clic, pour éviter les ouvertures intempestives à chaque passage sur la cellule concernée.

Je pense que c'est possible de forcer l'ouverture mais je ne sais pas faire.

Dans l'attente de vos retours,

Mwasikitoko

Bonjour

Pour faire cela, il faut d'abord désactiver le lien (en B3 dans l'exemple)

1) Code dans ThisWorkBook desactivant les liens à l'ouverture du classeur

Private Sub Workbook_Open()
ZapHyperlinks
End Sub

qui déclanche le Code de désactivation du lien placé dans un Module

Sub ZapHyperlinks()
    Range("B3").Hyperlinks.Delete
End Sub

2) Et Code de feuille pour activer le lien en B3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("$B$3"), Target) Is Nothing Then
ThisWorkbook.FollowHyperlink Address:="https://forum.excel-pratique.com/viewtopic.php?f=2&t=121541", NewWindow:=True
End If
End Sub

Cordialement