Je me suis mal exprimé, Je travaille avec un UserForm et j'ai créé un espace image lorsque l'on clique sur cette espace, je veux choisir une image et l'afficher à cette palce.
Private Sub Image1_Click() Fichier = Application.GetOpenFilename("Text Files (*.jpg), *.jpg") Image1.Picture = LoadPicture(Fichier) End Sub
Autrement dit comment utiliser un LoadPicture avec un paramètre et non pas avec un chemin en clair du type "F:photosmoi.jpg"
Merci
"Jean-François Aubert" <à a écrit dans le message de news: 3fa04028$
Salut, une solution:
Sub yy() Fichier = Application.GetOpenFilename("Text Files (*.jpg), *.jpg") ActiveWorkbook.FollowHyperlink Fichier End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"CS78" a écrit dans le message de news:bnp7t0$k92$
Bonjour,
Je voudrais chercher une image sur mon disque et l'afficher. J'ai essayé :
Je me suis mal exprimé, Je travaille avec un UserForm et j'ai créé un espace
image lorsque l'on clique sur cette espace, je veux choisir une image et
l'afficher à cette palce.
Private Sub Image1_Click()
Fichier = Application.GetOpenFilename("Text Files (*.jpg), *.jpg")
Image1.Picture = LoadPicture(Fichier)
End Sub
Autrement dit comment utiliser un LoadPicture avec un paramètre et non pas
avec un chemin en clair du type "F:photosmoi.jpg"
Merci
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news: 3fa04028$1_3@news.bluewin.ch...
Salut,
une solution:
Sub yy()
Fichier = Application.GetOpenFilename("Text Files (*.jpg), *.jpg")
ActiveWorkbook.FollowHyperlink Fichier
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"CS78" <christophe.simardnospam@wanadoo.fr> a écrit dans le message de
news:bnp7t0$k92$1@news-reader4.wanadoo.fr...
Bonjour,
Je voudrais chercher une image sur mon disque et l'afficher.
J'ai essayé :
Je me suis mal exprimé, Je travaille avec un UserForm et j'ai créé un espace image lorsque l'on clique sur cette espace, je veux choisir une image et l'afficher à cette palce.
Private Sub Image1_Click() Fichier = Application.GetOpenFilename("Text Files (*.jpg), *.jpg") Image1.Picture = LoadPicture(Fichier) End Sub
Autrement dit comment utiliser un LoadPicture avec un paramètre et non pas avec un chemin en clair du type "F:photosmoi.jpg"
Merci
"Jean-François Aubert" <à a écrit dans le message de news: 3fa04028$
Salut, une solution:
Sub yy() Fichier = Application.GetOpenFilename("Text Files (*.jpg), *.jpg") ActiveWorkbook.FollowHyperlink Fichier End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"CS78" a écrit dans le message de news:bnp7t0$k92$
Bonjour,
Je voudrais chercher une image sur mon disque et l'afficher. J'ai essayé :
