Lancement lien hypertexte contenu dans une cellule

Dubos - 8 nov. 2019 à 13:24
sylvain_66
Messages postés
19
Date d'inscription
mardi 26 mai 2020
Statut
Membre
Dernière intervention
28 juillet 2020
- 26 mai 2020 à 11:12
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

sylvain_66
Messages postés
19
Date d'inscription
mardi 26 mai 2020
Statut
Membre
Dernière intervention
28 juillet 2020

26 mai 2020 à 11:12
Bonjour

je souhaite créer une macro où lorsque l'on choisit une cellule avec lien hypertexte, ce lien s'active,
il y a déjà eu demande de faite, la 1ére réponse ne fonctionnait pas car, lien renvoyant un un classeur

une autre réponse a été faite :
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


mais là, je n'arrive pas à comprendre ?
à quoi correspond :
Selection.Hyperlinks(1)
SubAddress
Sheet(split
Range(split

Sinon, si vous avez une autre idée, pour activer un lien hypertexte avec un code

merci d'avance
0