Récupérer un Tooltip d'un lien Hypertexte d'une cellule Excel [Résolu]
Peypey3511
Messages postés mardi 1 mai 2007Date d'inscription
26 août 2008
Dernière intervention
-
25 août 2008 à 13:31 - Dernière réponse : dedenet2372
Messages postés vendredi 27 juillet 2007Date d'inscription
22 juillet 2013
Dernière intervention
- 26 août 2008 à 18:27
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.
dedenet2372
Messages postés vendredi 27 juillet 2007Date d'inscription
22 juillet 2013
Dernière intervention -25 août 2008 à 23:09
+3
Utile
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
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..
