Affichage photo dans zone image

[gislain99]

Bonjour,

Je suis sous excel 2010 64bit

j'ai un UserForm dans lequel ce trouve une multipage.
Sur une page de cette multipage j'ai cree une zone image.
Quand je clique sur cette zone j'ouvre un lien pour récuperer ma photo
j'affiche ce lien dans une textbox jusque la tout va bien mon souci
je n'arrive pas à afficher ma photo dans ma zone image.

Ci joint mon code

Private Sub Image1_Click()
TextBox95.Text = Application.GetOpenFilename
'Image1.Picture = Application.GetOpenPicture
DoEvents
End Sub

 

[stefan373]

Re : Affichage photo dans zone image

Bonjour gislain99 et le forum,

Un petit fichier avec les conditions réelles, serait le bien venu, mais pourquoi ne pas placer l'image directement dans la propriété "Picture" des options de la zone image.

A+ Stéfan

 

[gislain99]

Re : Affichage photo dans zone image

Bonjour

je ne peu pas placer l'image directement dans la propriété "Picture" car elle change a chaque nouvelle entree d'article.

Ci vous voyer des choses a modifier je suis preneur

Merci

Ci joint le fichier

 

[stefan373]

Re : Affichage photo dans zone image

Bonjour gislain99 et le forum,

Personnellement le fichier est trop gros pour essayer de tout comprendre, mais d'après ce que j'ai compris, voilà un échantillon.

J'ai dû supprimer le clic sur l'image, car cela ne fonctionnais pas et j'ai rajouté un bouton à la place. Dans le code du bouton, il faut inscrire le répertoire où se trouve vos photos.
Testez, si cela vous convient, copier le code dans votre version, car j'ai du modifier 2 chose pour que cela fonctionne chez moi.

A+ Stéfan

 

[gislain99]

Re : Affichage photo dans zone image

Bonjour
j'ai une erreur qui me dit qu'il ne trouve pas le fichier pourtant j'ai modifier le chemin mais
sa ne fonctionne pas

Private Sub CommandButton89_Click()
TextBox92.Text = Application.GetOpenFilename

Dim specfichier As String
Dim répertoireimage
Dim fs, F
specfichier = TextBox92.Value
répertoireimage = "C:\Photo stock"

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(specfichier)
UserForm3.Image1.PictureSizeMode = fmPictureSizeModeStretch
UserForm3.Image1.Picture = LoadPicture(répertoireimage & F.Name)
End Sub

 

[tbft]

Re : Affichage photo dans zone image

comme ça sans avoir essayer
UserForm3.Image1.Picture = LoadPicture(répertoireimage &"\" & F.Name)

 

[stefan373]

Re : Affichage photo dans zone image

Bonjour tbft et le forum,

Merci pour le relais, je pense que c'est juste ou alors une autre méthode,
en rajoutant "\" à la fin de

répertoireimage = "C:\Photo stock\"

A+ Stéfan

 

[gislain99]

Re : Affichage photo dans zone image

Bonjour
Merci a tous les deux
sa fonctionne super bien

A+