relier autom.image avec lien hypert.

zebanx · 25 Juin 2007

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 · 26 Juin 2007

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

Code:

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 · 26 Juin 2007

Re : relier autom.image avec lien hypert.

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

a+ thierry

relier autom.image avec lien hypert.

zebanx

XLDnaute Accro

Pièces jointes

Staple1600

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Discussions similaires

relier autom.image avec lien hypert.

zebanx

XLDnaute Accro

Pièces jointes

Staple1600

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency