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

Signaler
Messages postés
11
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
26 août 2008
-
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
-
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

5 réponses

Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
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++
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
Bonjour ,
Une réponse bien matinale!
Tant mieux si ça marche.
Pense à valider cette réponse
Merci
A+
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
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+
Messages postés
11
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
26 août 2008

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
Messages postés
11
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
26 août 2008

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