relier autom.image avec lien hypert.

[zebanx]

Bonjour,

je me suis surement mal débrouillé dans les recherches par mots-clés.
Bref, je cherche à relier une liste de lien hypertexte (actuellement en format "texte") avec une image type PDF.
Auriez vous un myen pour directement relier l'image de chaque ligne avec la cellule de la colonne E associée à la ligne correspondante.

Le fichier ci-joint est plus explicite.

Merci par avance, cdlt

 

[Staple1600]

Re : relier autom.image avec lien hypert.

Bonsoir

Testé sur mon pC (OK)

A tester sur ton fichier

Il faut que le nom du répertoire et du fichier soit dans la meme cellule
et que l'image soit dans la cellule adjacente
ex:
en colonne A
C:\Documents and Settings\test\Mes documents\Mes images\nike1.pdf
en colonne B
les images

Sub testOK()
Dim x as Long
On Error Resume Next
For x = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(x).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
Address:=ActiveSheet.Shapes(x).TopLeftCell.Offset(0, -1).Value
Next x
End Sub

NB:remerciement pour le TopLeftCell à myDearFriend!

 

[zebanx]

Re : relier autom.image avec lien hypert.

je te remercie beaucoup, c'est exactement ce que je voulais.

a+ thierry