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

Peypey35 11 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 : dedenet2 372 Messages postés vendredi 27 juillet 2007Date d'inscription 22 juillet 2013 Dernière intervention
- 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
Afficher la suite 

5 réponses

Répondre au sujet
dedenet2 372 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


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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.