Afficher la photo

[Cougar]

Bonsoir le forum,

De quel manière je pourrais afficher la photo correspondante à mon choix (fait à l'aide d'une combobox) ?

Voici une partie du code :
...
TextBox11 = tabtemp(O, 51)
TextBox11.Value = Format(TextBox11.Value, "# ##0.00" & " " & " $")
TextBox12 = tabtemp(O, 54)
TextBox12.Value = Format(TextBox12.Value, "# ##0.00" & " " & " $")
Image5 = tabtemp(O, 57)
...
Naturellement dans le cellule correspondante j'ai mis le chemin de la photo ('d:\\documents personnels\\photos\\149b.jpg')

Merci

 

[PascalXLD]

Re : Afficher la photo

Bonjour

le code donne a peu près ceci

Image5.Picture = LoadPicture(maphoto)

maphoto comporte le chemin de ta photo

Bon courage

 

[Cougar]

Re : Afficher la photo

Bonsoir Pascal76, le forum,

Puisque le choix de ma donnée provient d'une combobox, si je choisis une autre donnée, cela me donnera toujours la même photo (ce qui ne devrait pas). C'est pourquoi je veux que le chemin de la photo soit dans une cellule car la photo à afficher est toujours différente selon mon choix.

Merci

 

[Mytå]

Re : Afficher la photo

Salut le Forum

MaPhoto = "C:\temp1.gif"
Me.Image5.Picture = LoadPicture(MaPhoto)

Remplace "C:\temp1.gif" par la valeur de ta cellule.

Mytå

 

[Cougar]

Re : Afficher la photo

Bonsoir le forum,

C'est exactement ce que je voulais.

J'inclus les lignes de code pour ceux que cela pourraient aider :

Dim MaPhoto As Variant

MaPhoto = tabtemp(O, 57)
Me.Image5.Picture = LoadPicture(MaPhoto)

Dans les cellules BD j'ai placé le chemin des photos.

Encore une fois merci Mytå pour ton aide.

 

[Mytå]

Re : Afficher la photo

Re le Forum

Au plaisir de se recroiser Cougar

Salutation voisin de palier 🙂

Mytå