[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'La fonction API Windows ShellExecute permet de contourner cette alerte Windows[/COLOR]
[COLOR=GREEN]'Il convient donc de "simuler" le lien hypertexte et en laisser la gestion à la fonction API[/COLOR]
[COLOR=GREEN]'myDearFriend! - 01/2007[/COLOR]
[COLOR=NAVY]Private Declare Function[/COLOR] ShellExecuteA [COLOR=NAVY]Lib[/COLOR] "shell32.dll" ( _
[COLOR=NAVY]ByVal[/COLOR] hwnd [COLOR=NAVY]As Long[/COLOR], [COLOR=NAVY]ByVal[/COLOR] lpOperation [COLOR=NAVY]As String[/COLOR], _
[COLOR=NAVY]ByVal[/COLOR] lpFile [COLOR=NAVY]As String[/COLOR], [COLOR=NAVY]ByVal[/COLOR] lpParameters [COLOR=NAVY]As String[/COLOR], _
[COLOR=NAVY]ByVal[/COLOR] lpDirectory [COLOR=NAVY]As String[/COLOR], [COLOR=NAVY]ByVal[/COLOR] nShowCmd [COLOR=NAVY]As Long[/COLOR]) [COLOR=NAVY]As Long[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_FollowHyperlink([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Hyperlink)
[COLOR=NAVY]If[/COLOR] Target.Range.Address(0, 0) = "B26" [COLOR=NAVY]Then[/COLOR] [COLOR=GREEN]'Lien n°2 seulement[/COLOR]
ShellExecuteA 0&, "Open", Target.TextToDisplay, "/e", 0&, 1
[COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]