Discussion :

[wipMan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[EngueEngue]

Chez moi il marche

[wipMan]

Certes.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Docmarti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EngueEngue]

Certes.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wipMan]

Ce ne sont pas des hyperlinks

En effet. Cela repond au topic.