Lien hypertexte vers un onglet masqué
Bonjour à tous,
J'aimerai de l'aide pour une macro :
Son but est d'ouvrir un onglet masqué à partir d'un lien hypertexte. Je voudrais en plus que l'onglet voulu s'affiche et ne reste pas dans les onglets en bas. Je suis sur qu'il ne manque pas grand chose.
Voici la macro :
Private Const ListeFeuillesCachees As String = "?Lundi?Mardi?Mercredi?"
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'si la feuille ne fait pas partie des feuilles à cacher, quitter la macro
If InStr(ListeFeuillesCachees, "?" & Sh.Name & "?") = 0 Then Exit Sub
'masquer la feuille
Sh.Visible = xlSheetHidden
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim nomFeuille As String
'récupérer le nom de la feuille pointée par le lien hypertexte
nomFeuille = Application.Range(Target.SubAddress).Parent.Name
'si la feuille fait partie des feuilles cachées
If InStr(ListeFeuillesCachees, "?" & nomFeuille & "?") <> 0 Then
'afficher la feuille
On Error Resume Next
Application.Range(Target.SubAddress).Parent.Visible = xlSheetVisible
On Error GoTo 0
End If
'suivre le lien hypertexte
Application.EnableEvents = False
Target.Follow
Application.EnableEvents = True
End Sub
Merci d'avance pour vos réponses
Brook
Bonjour
En poussant un peu tes investigations sur le Forum où tu as trouvé ce Code
Fichier Joint
Cordialement
Merci pour cette solution mais du coup, j'ai la page de départ qui se masque et je voudrais la garder visible.
Bonjour
En rajoutant au Code la ligne pour rendre la feuille Commande visible.
cordialement
C'est pas tout à fait ça mais j'ai finir par réussir.
Merci pour ton aide