Connaître le contenu du lien hypertexte

[MJ13]

Bonjour à tous

Dans une cellule, je place un lien hypertexte (avec ctrl+k).

Mais comment en VBA, connaître l'intitulé de ce lien hypertexte (qui s'affiche en infobulle) de la cellule.

Merci d'avance🙂

 

[Guest]

Re : Connaître le contenu du lien hypertexte

Bonjour Michel🙂,

activecell.Hyperlinks(1).Address

Tester avant pour savoir s'il y a bien un lien dans la cellule.

A++

 

[Pierrot93]

Re : Connaître le contenu du lien hypertexte

Bonjour Michel,

regarde ceci, pour un lien en A1 :

MsgBox Range("A1").Hyperlinks(1).ScreenTip

bon après midi
@+

 

[chris]

Re : Connaître le contenu du lien hypertexte

Bonjour

Quelque chose comme cela

Sub test()
    x = Range("A3").Hyperlinks.Count
    If x = 1 Then y = Range("a2").Hyperlinks(1).ScreenTip
End Sub

Edit Bing ! Salut Pierrot

Edit 2 : arf Hasco aussi était là. Bise

 

[Pierrot93]

Re : Connaître le contenu du lien hypertexte

Re,

A noter, tu as aussi la propriété "TextToDisplay"... A voir, c'est selon...

Edition : bonjour Chris, Hasco

 

[MJ13]

Re : Connaître le contenu du lien hypertexte

Bonjour Ges, Pierrot, Chris

Merci pour vos réponses, je vais tester tous cela 🙂

Je vous tiens au jus, mais pas tout de suite 😱.

 

[MJ13]

Re : Connaître le contenu du lien hypertexte

Bonjour Ges, Pierrot, Chris

Merci à tous de m'avoir mis sur la voie 🙂.

Bon après quelques tests, il y a une différence entre un lien hyperttexte de type aller vers une feuille et un lien pointant vers IE par exemple.

Voici un fichier en fonction de ce qu'on cherche.

 

[chris]

Re : Connaître le contenu du lien hypertexte

Bonjour

Dans le cas 1 l'info bulle (screentip) a été définie manuellement mais pas dans les autres : d'où la différence.
Excel affiche une info bulle dans tous les cas : screentip si défini, sinon TextToDisplay et cela quelle que soit la cible du lien.
Donc il faut tester les deux. Comme tu précisais infobulle, je suis partie sur une infobulle définie...