charger une photo

[Patrick63]

Bonjour à tous
qui peut parmi vous me dire comment je peux charger une photo (jpeg) dans un user form en utilisant le label 'nom' de ce même userform
objectif: créer un petit trombinoscope!

 

[MichelXld]

bonjour Patrick

si le chemin et le nom de l'image sont dans le Label tu peux essayer

Image1.Picture = LoadPicture(Label1)


bonne journée
MichelXld

 

[PascalXLD]

Bonjour

Ce que tu peux faire c'est avoir dans une feuille 'personnel' par exemple dans une colonne le chemin où se trouve ta photo

donc dans une colonne le nom de la personne et sur la même ligne le chemin de sa photo

cela donne (c'est un copier-coller d'un truc que j'ai sur mon pc)

MaPhoto = Sheets('Personnel').Range('T' & c)
UF_Rempl.ImagePerso.Picture = LoadPicture(MaPhoto)

En fait c c'est la ligne où se trouve le nom de la personne que tu retrouves par une recherche par rapport au nom de ton label

et dans la colonne T le chemin J:\PHOTO\Babar.BMP

Bon courage

Message édité par: Pascal76, à: 15/09/2005 10:49

 

[Patrick63]

Merci pour cette célérité,
J'ai noté, et j'essaye
Bonne journée, à bientôt.
Patrick