Lancement lien hypertexte contenu dans une cellule

- - Dernière réponse : cs_Le Pivert
Messages postés
6334
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 novembre 2019
- 8 nov. 2019 à 14:40
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
Afficher la suite 

1 réponse

Messages postés
6334
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 novembre 2019
87
0
Merci
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



Commenter la réponse de cs_Le Pivert