[Question] Lien hypertexte

[Gourou]

Bonjour à tous,
j'ai un petit soucis de flemme, en meme temps je ne suis pas une machine! Bref, voici la situation:
J'ai un tableau qui a une colonne remplie de références (environ 2000). Lorsque je clique sur une référence, la photo du produit doit s'afficher (lien hypertexte donc). Pour créer le lien il faut que j'aille cherche le fichier photo qui se trouve dans un autre repertoire...
Je n'ai pas envie de faire la manipulation pour chaque référence.
Est-il possible de créer une formule me permettant "d'automatiser la procédure"?

Merci d'avance

 

[Staple1600]

Re : [Question] Lien hypertexte

Bonjour

A teste (sur une copie de ton fichier)

Dans cet exemple:

1) dans la colonne A: on a: C:\test1.jpg (c-a-d le chemin et le nom du fichier)

2) les liens hypertextes sont crées dans la colonne B

Sub CreateLinks()
[COLOR="SeaGreen"]'Tom Ogilvy
'Source:http://www.pcreview.co.uk/forums/thread-1764527.php[/COLOR]
Dim LinkRange As Range, cell As Range
[COLOR="seagreen"]'Définition de la plage de cellules (ici les cellules non vides de la colonne A)[/COLOR]
Set LinkRange = Range("A1", Range("A65536").End(xlUp))
On Error Resume Next
For Each cell In LinkRange
[COLOR="seagreen"]'Insertion des liens hypertextes[/COLOR]
ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & cell.Row), Address:= _
Range("A" & cell.Row).Value, TextToDisplay:=cell.Value
[COLOR="seagreen"]'Effacement du contenu de la cellule en colonne A[/COLOR]
'Range("A" & cell.Row).ClearContents
Next
End Sub