Discussion :

[totor6789]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[totor6789]

Bon je progresse...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[totor6789]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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????