Discussion :

[therabbitkiller]

test.xls
Bonjour à Tous,

Je cherche a extraire des liens hypertextes contenus dans des icônes dans un tableau Excel.

Mon niveau de manipulation d'objet en VBA n'étant pas génial je fais appel à la force de ce forum !

J'ai trouvé en ligne un code prometteur que je n'arrive pas à adapter à ma situation.

Pour plus de simplicité je vous joint un exemple .xls

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Hypertextes()
 
Dim h As Hyperlink
'With Worksheets("Feuil1")
For Each h In .Hyperlinks
N = h.Parent.Name
If UCase(Left(N, 7)) = "Picture" Then
.Range(.Shapes(N).TopLeftCell.Address).Offset(, 1) = _
h.Address
End If
Next
End With
 
End Sub

Il n'y a pas que 15 manip à faire bien entendu mais plusieurs centaines !

En restant à votre dispo,

Merci d'avance,
Nico

[therabbitkiller]

Mon extraction Excel étant réalisée à partir d'un site web, j'ai trouvé la solution de ce côté en extrayant directement les liens hypertextes de la page web à l'aide du plugin Firefox link gropher.

Je passe ce sujet en résolu

A++