Userform : ajouter lien hypertext pour photo

Bonjour à tous,

dans mon userform, j'aimerais aller chercher le lien d'un photo, l'ajouter dans une textbox.
Pouvez-vous m'aider pour :
-copier le chemin dans ma textbox
-faire en sorte que lorsque je copie le contenu de ma textbox dans ma feuille, le chemin s'inscive en lien hypertext

je n'ai qu'un bout de code, après je bloque...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CommandButton2_Click() Dim TheFile As Variant Dim ThePath As String Dim UserDir As String   ThePath = "C:\"   UserDir = CurDir   ChDir ThePath   TheFile = Application.GetOpenFilename("image(*.jpg),*.jpg") If TheFile = False Then ChDir UserDir: Exit Sub   With Me.TextBoxLink ?? ?? End With   ChDir UserDir   End Sub

---

Bon je progresse...

J'ai encore un souci. j'essai de faire :

Code:

---

1 2	TexBoxLink.Value=Hyperlink("TheFile")

---

Mias ça ne marche pas...
Est il possible que ma textbox contiennent directement le lien hypertext?

Bon j'ai trouvé!
si ça peut interreser quelqu'un :
1-copie de l'image dans le userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub CommandButtonPhoto1_Click() Dim TheFile As Variant Dim ThePath As String Dim UserDir As String   ThePath = "C:\"   UserDir = CurDir   ChDir ThePath   TheFile = Application.GetOpenFilename("image(*.jpg),*.jpg") If TheFile = False Then ChDir UserDir: Exit Sub   With Me.Image1 .Picture = LoadPicture(TheFile) .PictureSizeMode = fmPictureSizeModeZoom End With   TextBoxLink1.Value = TheFile       ChDir UserDir   End Sub

---

2-Création d'un lien hypertext lors de l'enregistrement de l'USF :

Code:

---

1 2 3 4 5 6 7 8

If TextBoxLink1.Value = "" Then Range("U10000").End(xlUp).Offset(1, 0).Value = "-" Else Dim objLink1 As Hyperlink   Set objLink1 = Bilan.Hyperlinks.Add(Range("U10000").End(xlUp).Offset(1, 0), TextBoxLink1.Value) End If

---

3-Pour réafficher la photo lorsque je réaffiche le USF :

Code:

---

1 2 3 4 5 6 7

Surveilllance.TextBoxLink1.Value = Sheets("Bilan").Range("U" & Target.Row).Value   With Surveilllance.Image1 .Picture = LoadPicture(Surveilllance.TextBoxLink1.Value) .PictureSizeMode = fmPictureSizeModeZoom End With

---

Une question me reste cependant :
Lorsque le lien hypertext n'est pas valide (le fichier n'existe plus par exemple),
j'aimerais que ça ne fasse pas planter le USF.

Quelle est la commande pour vérifier que "Surveilllance.TextBoxLink1.Value" est bien un chemin valide????