Inserer des photos dans un userform

[dran_200]

Bonjour,
J'utilise un userform + une image avec ce code :
---------------------------------------
Private Sub ListBox2_Change()
Dim Photo As String
On Error GoTo Fin

Photo = ListBox2.Column(3)
Image1.Picture = LoadPicture("D:\Donnée\Bloc\Photo\" & Photo & ".jpg")

Exit Sub

Fin:
Image1.Picture = LoadPicture("D:\Donnée\Bloc\Photo\Image defaut.jpg")
Err.Clear
End Sub
---------------------------
Tout fonctionne corectement.
Mais je voudrais pouvoir mettre ce fichier image + fichier excel sur un serveur ou un CD. Le probleme est que le chemin pour les photos changent et ne fonctionne plus.
Les 2 fichiers sont dans le même dossier.
Merci pour votre aide

 

[dran_200]

Re : Inserer des photos dans un userform

Bonjour

Personne n'a une solution à mon probleme ?

Merci