Contrôle Image dans Userform [Resolu]

[RENAUDER]

Bonjour,

A ce jour je charge des images stockées dans un répertoire dans mon contrôle Image via le code...

Private Sub lstPlaques_Click()
    NomImg = Me.lstPlaques.Column(1, Me.lstPlaques.ListIndex)
    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Plaques\" & NomImg & ".jpg")
End Sub

Cela fonctionne correctement.
Pour éviter de transmettre mes images avec le fichier Excel j'ai inséré ces mêmes images dans une feuille Excel et je voudrais les charger dans mon contrôle Images.
Dans ma feuille elles sont nommées mais la ligne qui me pose des soucis est :

Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Plaques\" & NomImg & ".jpg")

Que mettre à la place de :

.....ThisWorkbook.Path & "\Plaques\" & NomImg & ".jpg"

D'avance merci pour votre aide.

 

[BOISGONTIER]

Re : Contrôle Image dans Userform

Bonsoir

Les formulaires

http://boisgontierjacques.free.fr/fichiers/Images/FormPhotoInterne.xls
http://boisgontierjacques.free.fr/fichiers/Images/FormPhotoInterneStephenBullen.xls
http://boisgontierjacques.free.fr/fichiers/Images/FormPhotoInterne3.xls

JB

 

[RENAUDER]

Re : Contrôle Image dans Userform [Resolu]

Bonjour,

Cela fonctionne, merci beaucoup