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