Userform - VBA - Image ?

Bonjour.

Il n'y a pas de propriété Source mais tu peux conserver le
chemin de l'image dans une variable.

Par exemple un UserForm avec un CommandButton et un
Control Image

Dans le code du UserForm

Public Source$

Private Sub CommandButton1_Click()
MsgBox Source
End Sub

Private Sub UserForm_Initialize()
Source = "Le Chemin complet de l'image"
Me.Image1.Picture = LoadPicture(Source)
End Sub

Alain CROS

-----Message d'origine-----
Bonjour,

Je sais afficher une image dans un Userform, mais
j'aimerais savoir

quel code je dois écrire pour récupérer le nom du ficher
(voire le

chemin) qui se trouve dans l'image d'un Userform ?

Pour charger mon image j'ai écris le code suivant :
imNicho.Picture = LoadPicture
("C:WINDOWS...NomDeFichier)

Merci, cordialement, Rod.
.

Merci Alain,
Je vais faire de cete manière.
Cordialement, Rod.


"Alain CROS" <PERSONNE@ICI> wrote in message news:<2ca401c4b17a$8779cf10$a501280a@phx.gbl>...

Bonjour.

Il n'y a pas de propri t Source mais tu peux conserver le
chemin de l'image dans une variable.

Par exemple un UserForm avec un CommandButton et un
Control Image

Dans le code du UserForm

Public Source$

Private Sub CommandButton1 Click()
MsgBox Source
End Sub

Private Sub UserForm Initialize()
Source = "Le Chemin complet de l'image"
Me.Image1.Picture = LoadPicture(Source)
End Sub

Alain CROS

-----Message d'origine-----
Bonjour,

Je sais afficher une image dans un Userform, mais
j'aimerais savoir

quel code je dois crire pour r cup rer le nom du ficher
(voire le

chemin) qui se trouve dans l'image d'un Userform ?

Pour charger mon image j'ai cris le code suivant :
imNicho.Picture = LoadPicture
("C:WINDOWS...NomDeFichier)

Merci, cordialement, Rod.
.