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++