XL 2016 Ouvrir une feuille masquée avec un lien hypertexte

[berru76]

Bonjour
Mes liens hypertexte fonctionnent si l'onglet n'est pas masqué
Je voudrais pouvoir " vu qu'il y aura une centaine de feuilles " les masquer
Peut on ouvrir une feuille masquée avec un lien hypertexte

Merci pour votre aide

ci -joint un exemple

 

[patricktoulon]

bonsoir
essaie ça

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim nam$
    On Error Resume Next
    nam = Split(Target.SubAddress, "'")(1)
    With Sheets(nam)
        .Visible = True
        .Activate
    End With
    If Err Then MsgBox " il semblerait que cette feuille n'existe pas"
    On Error GoTo 0
End Sub

 

[berru76]

Merci a vous
fonctionne nickel