Récupérer un Tooltip d'un lien Hypertexte d'une cellule ExcelRésolu

Question

Bonjour, 

Est-ce que quelqu'un sait comment faire pour récupérer un Tooltip qui est une info-bulle mise sur un lien Hypertexte dans une cellule excel, sachant que j'utilise Visual Basic Express 2008.

Merci d'avance pour vos réponses

Frédéric

dedenet2 · Accepted Answer

Bonsoir ,

J'ai un peu regardé.
La propriéte info bulle du lien est 



Screentip.

Tu as fait un "Exception" parce que tu as scrupté une
cellule ou il n'y avait pas de lien (sans doute).

-----------------------------------------------------------
Avec ce code , tu recuperes des textes des infos bulles
à condition de les avoir definis avant:




----> Cells(ligne, colonne)..Hyperlinks(1).ScreenTip = "text"


(Le texte par defaut ,c'est à dire le lien n'est pas récuperé.
 Je ne sais pas pour quelle raison)






Dim h, ligne, colonne
Dim Info As String
Dim nombrelienParcellule As Integer
nombrelienParcellule = 0

For ligne = 1 To 20
For colonne = 1 To 20
For Each h In Worksheets(1).Cells(ligne, colonne).Hyperlinks
For nombrelienParcellule = 1 To Cells(ligne, colonne).Hyperlinks.Count
If Cells(ligne, colonne).Hyperlinks.Count > 0 Then
Info = Cells(ligne, colonne).Hyperlinks(nombrelienParcellule).ScreenTip


End If
Next
Next
Next
Next
End Sub

---------------------------------------------------------------------

Pour récuperer les liens de toutes les cellules , remplace dans le code
ci-dessus le mot "ScreenTip" par "Names".

Teste et donne moi de tes nouvelles
A++

dedenet2 · Answer

Bonjour ,
Pour récupérer le texte de cette info bulle:

Dim Info
Info = Range("E17").Hyperlinks(1).EmailSubject

J'espère que c'est ce tu veux !
A+

Peypey35 · Answer

Rebonjour, merci d'avoir répondu à mon message.
J'ai essayé :
String = .cells(Ligne,Colonne).Hyperlinks(1).EmailSubject mais ça ne marche pas, j'ai une exception.
Est-ce que la syntaxe est bonne?
A suivre..

Frédéric

Peypey35 · Answer

Rebonjour Dedenet2,

Super ça marche!!!
Génial!!!

Quand il ya pas de Tooltip, la String est vide sinon elle contient tous les caractères.

Merci encore pour cette info.

Frédéric

dedenet2 · Answer

Bonjour ,
Une réponse bien matinale!
Tant mieux si ça marche.
Pense à valider cette réponse
Merci
A+

Récupérer un Tooltip d'un lien Hypertexte d'une cellule Excel

5 réponses

Votre réponse