Affichage photo dans zone image

S

stefan373

XLDnaute Occasionnel

• 27 Février 2013

• #2

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

 

Vote positif 0 Vote négatif

G

gislain99

XLDnaute Nouveau

• 27 Février 2013

• #3

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

 

Pièces jointes

• Gestion de stock Test.xlsm

  287.6 KB · Affichages: 61
• Gestion de stock Test.xlsm

  287.6 KB · Affichages: 66
• Gestion de stock Test.xlsm

  287.6 KB · Affichages: 68

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 28 Février 2013

• #4

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

 

Pièces jointes

• Gestion de stock Test 2.xlsm

  116.8 KB · Affichages: 49

Vote positif 0 Vote négatif

G

gislain99

XLDnaute Nouveau

• 28 Février 2013

• #5

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 28 Février 2013

• #6

Re : Affichage photo dans zone image

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

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 28 Février 2013

• #7

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

Code:

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

A+ Stéfan

 

Vote positif 0 Vote négatif

G

gislain99

XLDnaute Nouveau

• 28 Février 2013

• #8

Re : Affichage photo dans zone image

Bonjour
Merci a tous les deux
sa fonctionne super bien

A+

 

Vote positif 0 Vote négatif