lestoiles1
XLDnaute Occasionnel
Bonjour tout le monde,
Peut-on acceder à une feuille cachée grace a hyperlink?
Merci de votre réponse
lestoiles1
Peut-on acceder à une feuille cachée grace a hyperlink?
Merci de votre réponse
lestoiles1
Private Sub Worksheet_FollowHyperlink(ByVal h As Hyperlink)
If h.SubAddress <> "" Then Evaluate(h.SubAddress).Parent.Visible = xlSheetVisible: Application.Goto Evaluate(h.SubAddress)
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal h As Hyperlink)
If h.SubAddress <> "" Then Evaluate(h.SubAddress).Parent.Visible = xlSheetVisible: Application.Goto Evaluate(h.SubAddress)
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Visible = xlSheetHidden
End Sub