Peypey35
Messages postés11Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention26 août 2008
-
25 août 2008 à 13:31
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 2013
-
26 août 2008 à 18:27
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.
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 25 août 2008 à 23:09
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
Peypey35
Messages postés11Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention26 août 2008 25 août 2008 à 20:40
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
Vous n’avez pas trouvé la réponse que vous recherchez ?