Macro vs lien hypertexte

Bonjour,

J'ai fait un fichier qui tournait bien jusqu'à ce que l'administrateur réseau augmente les sécurités et depuis deux semaines, nous ne pouvons plus utiliser les liens hypertextes. C'était vraiment pratique de naviguer simplement d'une feuille à l'autre.

Je générais les liens hypertextes avec ce code ci-dessous

  Dim i As Long
    For i = 4 To Sheets.Count - 1    
        If Not i = Sheets.Count Then
            ws.Hyperlinks.Add Anchor:=ws.Cells(i - 2, 3), Address:="", SubAddress:= _
            Chr(39) & Sheets(i + 1).Name & Chr(39) & "!A1"
        Else
            ws.Hyperlinks.Add Anchor:=ws.Cells(i - 2, 3), Address:="", SubAddress:= _
            Chr(39) & Sheets(i).Name & Chr(39) & "!A1"
        End If    
    Next i

J'aimerai le remplacer par un code dans la feuille comme ceci.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim onglet As String
    If Target.Value <> "" And Target.Column = 3 And Target.Row > 1 Then
            onglet = Target.Value & "|" & Target.Offset(Target.Row, 2).Value & "_" & Target.Offset(Target.Row, 3).Value
            Sheets(onglet).Select
        Cancel = True
    End If
End Sub

J'ai un bug sur la ligne Sheets(onglet).Select erreur '9' ?

Une idée ?

Leakim

EDIT : fichier retiré après résolution de Jean-Eric

Bonjour,

Je n'ai ouvert ton fichier, mais ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim onglet As String
    If Not IsEmpty(Target) And Target.Column = 3 And Target.Row > 1 Then
        onglet = Target.Value & "|" & Target.Offset(, 2).Value & "_" & Target.Offset(, 3).Value
        Worksheets(onglet).Select
        Cancel = True
    End If
End Sub

Bonjour et merci !

Ne l'ouvre pas ce n'est pas nécessaire

La combinaison de ifnot isempty et worksheets fonctionne !

Merci

Leakim