VBA, Excel & Hyperlinks

yo

Je cherche a trouver les liens hypertextes au sein de ma feuille de calcul. Seulement, je n'arrive pas a les isoler...
Le code qui suit est ce que j'ai mis en place pour ma recherche et bien que je pense que le contenu soit bon, je ne trouve pas ces fameux liens.
Une erreur probablement flagrante m'echappe.

Code:

---

1 2 3 4 5 6 7 8

Sub testHyperLinks() Dim h As Hyperlink MsgBox "in" For Each h In ActiveSheet.Hyperlinks ' h.Follow MsgBox "h.Address: " & h.Address Next h End Sub

---

On me situe une erreur dans la ligne ou debute ma boucle.

Merci.

Chez moi il marche

Certes.

J'ai essaye d'avancer et j'ai entre ceci:

Code:

---

1 2 3

Sub testHyperLinks() MsgBox ActiveSheet.Hyperlinks(1).Range End Sub

---

J'ai une erreur qui me dit que mon "indice n'appartient pas a la selection".
J'en deduis que ne figure pas dans ma feuille Excel (ActiveSheet) de lien hypertexte. Or, il en existe bien neuf, pointant vers des documents situes sur mon disque (trois d'entre eux pointent vers rien). Peut-etre est-il utile de preciser que ces liens sont crees par la fonction "LIEN_HYPERTEXTE()" d'Excel..?

Quelqu'un aurait-il une idee sur les raisons expliquant ce comportement ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

For Each h In Cells.Hyperlinks   Set r = Range(h.Range.Address)   If r.Hyperlinks(1).SubAddress <> "" Then MsgBox h.Range.Address & vbCrLf & "h.SubAddress: " & h.SubAddress   ElseIf r.Hyperlinks(1).Address <> "" Then MsgBox h.Range.Address & vbCrLf & "h.Address: " & h.Address   Else MsgBox h.Range.Address & vbCrLf & "Voir la FAQ "   End If   Next

---

Voir la FAQ ci-dessous
http://excel.developpez.com/faq/?pag...#ExtraireLiens

Citation:

---

Envoyé par wipMan

Certes.

J'ai essaye d'avancer et j'ai entre ceci:

Code:

---

1 2 3

Sub testHyperLinks() MsgBox ActiveSheet.Hyperlinks(1).Range End Sub

---

J'ai une erreur qui me dit que mon "indice n'appartient pas a la selection".
J'en deduis que ne figure pas dans ma feuille Excel (ActiveSheet) de lien hypertexte. Or, il en existe bien neuf, pointant vers des documents situes sur mon disque (trois d'entre eux pointent vers rien). Peut-etre est-il utile de preciser que ces liens sont crees par la fonction "LIEN_HYPERTEXTE()" d'Excel..?

Quelqu'un aurait-il une idee sur les raisons expliquant ce comportement ?

---

Ce ne sont pas des hyperlinks ;)

Citation:

---

Ce ne sont pas des hyperlinks ;)

---

En effet. Cela repond au topic.