Lancement lien hypertexte contenu dans une cellule

Signaler
-
Messages postés
6642
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 avril 2020
-
Bonjour à toutes et à tous,

En lançant la commande comme énoncée sur le forum pour executer le lien hyper texte dans une cellule (range"A1".hyperlinks(1).follow NewWindow:=true)
absoluement rien ne se fait alors que le lien revoie à une feuille du même classeur.

Avez-vous une idée de ce qu'il faut faire de plus pour voir la feuille concernée s'activer?

Bien à vous

Laurent

1 réponse

Messages postés
6642
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 avril 2020
103
Bonjour,

effectivement cela ne fonctionne pas avec un lien renvoyant à une feuille du classeur. Mais fonctionne avec une adresse URL


https://excel.developpez.com/faq/?page=Hyperlink#DeclencheLien

je pense qu'il va falloir te rabattre sur la solution la plus simple:

 Sheets("Feuil3").Select ' ou Activate


Voilà la solution à ton problème:

Sub Macro1()
 With Selection.Hyperlinks(1)
 .Follow NewWindow:=False, AddHistory:=True
 If .SubAddress <> "" Then
     Sheets(Split(.SubAddress, "!")(0)).Select
     Range(Split(.SubAddress, "!")(1)).Select
    End If
 End With
End Sub