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

Résolu
Peypey35
Messages postés
11
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
26 août 2008
- 25 août 2008 à 13:31
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 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.

Merci d'avance pour vos réponses

Frédéric

5 réponses

dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
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


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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Peypey35
Messages postés
11
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
26 août 2008

26 août 2008 à 06:47
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
0