XL 2013 afficher image dans Userform via HyperText

[Cyril-neo]

Bonjour à vous,

je recherche la possibilité d'ouvrir un lien HyperText dans une commande image (présent dans le userform).
je passe par un lien hypertexte car les images à afficher se trouve sur un réseau.

j'ai réaliser un code mais celui ci me ramène systématiquement au message "image introuvable" alors que le lien HyperText est fonctionnel.
Je vous joint le fichier test ( il faudra bien sûr modifier le lien HyperText dans la colonne "J" pour y mettre une image a vous pour réalisé le test)

Pouvez vous m'aider?

Voici le code que j'ai fait :

Private Sub CheckBox1_Change()

Dim ligne As Long
Dim var As String
Dim var2 As String

If Me.CheckBox1.Value = True Then

Me.CheckBox2.Value = False
Me.CheckBox3.Value = False


ligne = 2
var2 = Me.TextBox1.Value

While Sheets("Suivi des écarts").Cells(ligne, 1).Value <> ""

var = Sheets("Suivi des écarts").Cells(ligne, 1).Value

If var = var2 And Sheets("Suivi des écarts").Cells(ligne, 31).Value = Me.Label20.Caption Then


Me.Label19.Caption = Sheets("Suivi des écarts").Cells(ligne, 31).Value
Me.Label26.Caption = Sheets("Suivi des écarts").Cells(ligne, 3).Value
Me.Label27.Caption = Sheets("Suivi des écarts").Cells(ligne, 4).Value
Me.Label32.Caption = Sheets("Suivi des écarts").Cells(ligne, 6).Value
Me.Label33.Caption = Sheets("Suivi des écarts").Cells(ligne, 7).Value
Me.Label28.Caption = Sheets("Suivi des écarts").Cells(ligne, 8).Value
Me.Label29.Caption = Sheets("Suivi des écarts").Cells(ligne, 9).Value
Me.Label30.Caption = Sheets("Suivi des écarts").Cells(ligne, 10).Value
Me.Label34.Caption = Sheets("Suivi des écarts").Cells(ligne, 11).Value
Me.Label35.Caption = Sheets("Suivi des écarts").Cells(ligne, 12).Value
Me.Label36.Caption = Sheets("Suivi des écarts").Cells(ligne, 13).Value
Me.Label37.Caption = Sheets("Suivi des écarts").Cells(ligne, 15).Value
Me.Label38.Caption = Sheets("Suivi des écarts").Cells(ligne, 16).Value
Me.Label31.Caption = Sheets("Suivi des écarts").Cells(ligne, 17).Value
Me.Tblink.Caption = Sheets("Suivi des écarts").Cells(ligne, 10).Hyperlinks(1).Address
On Error Resume Next
Me.Image1.Picture = LoadPicture(Tblink)
If Err Then MsgBox "Image introuvable.", vbExclamation, "Appel image"
On Error GoTo 0
Else

End If

ligne = ligne + 1

Wend


Else

End If

End Sub

 

[Cyril-neo]

personne ne peux m'aider?

 

[Dranreb]

Bonjour.
Les liens hypertextes ont apparemment des adresses de fichier relatives au chemin du classeur et ne comportent que le nom de fichier.

 

[Cyril-neo]

Bonjour, Merci pour ta réponse.
Quand je passe ma souris sur les lien HyperText dans le tableau j'ai l'adresse entière mais il est vrais qu'une fois la donner mis dans le textbox "tblink"celui ci n'affiche que le nom du fichier.
Mon problème viendrait de la ?
serait tu comment je peux faire recuperer l'adresse de destination en entier.

PS : sur l'emplacement d'origine du fichier le lien recuperer dans le textbox "Tblink" est entier.

 

[Dranreb]

Je pense.
Concaténer devant le chemin, si c'est le même pour toutes les images. Sinon au lieu de liens hypertextes mettez les noms complets des fichiers dans les cellules.

 

[Cyril-neo]

Je pense.
Concaténer devant le chemin, si c'est le même pour toutes les images. Sinon au lieu de liens hypertextes mettez les noms complets des fichiers dans les cellules.

Merci je vais essayer