browser une image pour ensuite...

Salut Sabian,
De cette façon peut être ?

Private Sub Image1_Click()
Dim FichierImage
FichierImage = Application _
.GetOpenFilename( _
"Images Bitmaps(*.bmp), *.bmp," & _
"Métafichiers(*.wmf), *.wmf," & _
"Images Gif(*.gif), *.gif," & _
"Images Jpeg(*.jpg), *.jpg," & _
"Icônes(*.ico), *.ico," & _
"Curseurs(*.cur), *.cur")
If FichierImage <> False Then
Image1.Picture = LoadPicture(FichierImage)
Me.Repaint
End If
End Sub

Hervé.

"Sabian" <sab@ian.com> a écrit dans le message news:
02a401c3a830$03a16030$a001280a@phx.gbl...
Salut...
J'ai un code pour insérer une image dans un controle Image:
Me.imgImage1.Picture = LoadPicture ("C:MonImage.jpg")

Maintenant ce que je voudrais faire, c'est rendre
dynamique le choix de l'image.

Qu'il me donne la possibilité de pouvoir browser l'image
que je voudrais sur mon disque.

Déjà, est-ce possible... peut-être avec une variable ?

Merci de votre aide...
Sabian

Salut Hervé,

Mieux que ça je pouvais pas espérer...

Mille fois merci

:-)
Sabian

-----Message d'origine-----
Salut Sabian,
De cette façon peut être ?

Private Sub Image1_Click()
Dim FichierImage
FichierImage = Application _
.GetOpenFilename( _
"Images Bitmaps(*.bmp), *.bmp," & _
"Métafichiers(*.wmf), *.wmf," & _
"Images Gif(*.gif), *.gif," & _
"Images Jpeg(*.jpg), *.jpg," & _
"Icônes(*.ico), *.ico," & _
"Curseurs(*.cur), *.cur")
If FichierImage <> False Then
Image1.Picture = LoadPicture(FichierImage)
Me.Repaint
End If
End Sub

Hervé.

"Sabian" <sab@ian.com> a écrit dans le message news:
02a401c3a830$03a16030$a001280a@phx.gbl...
Salut...
J'ai un code pour insérer une image dans un controle
Image:

Me.imgImage1.Picture = LoadPicture ("C:MonImage.jpg")

Maintenant ce que je voudrais faire, c'est rendre
dynamique le choix de l'image.

Qu'il me donne la possibilité de pouvoir browser l'image
que je voudrais sur mon disque.

Déjà, est-ce possible... peut-être avec une variable ?

Merci de votre aide...
Sabian


.