Afficher une image de mon classeur dans un userform

Daroumx · 28 Mai 2014

Bonjour le forum,

Voila j'essaie d'afficher une image présente dans la feuil1 de mon classeur.Malheureusement le code suivant affiche seulement l'userform sans la photo chargée dedans.

Code:

Private Sub UserForm1_Initialize()
    Dim Sh As Shape
    Set Sh = Worksheets("Feuil1").Shapes(1)
    Image1.Picture = LoadPicture(Sh)
End Sub

Je met aussi en pièce jointe le classeur test.
En vous remerciant d'avance de votre aide précieuse.

zeltron24 · 28 Mai 2014

Re : Afficher une image de mon classeur dans un userform

Bonsoir Daroumx
Voici un exemple que j'ai trouvé sur le forum grace à vbacrumble que je remercie au passage.

xhudi69 · 28 Mai 2014

Re : Afficher une image de mon classeur dans un userform

Bonsoir Daroumx, le Forum

Tout d'abord:

Code:

Private Sub UserForm1_Initialize()

Non, il faut:

Code:

Private Sub UserForm_Initialize()

En PJ ton fichier avec une méthode (il y en a d'autres)

EDIT: Bonsoir Zeltron24, je suis un peut lent ce soir

@+

Daroumx · 29 Mai 2014

Re : Afficher une image de mon classeur dans un userform

Bonjour zeltron24 , xhudi69 , le Forum

Je vous remercie pour vos réponses c'est exactement ce que je cherchais . Je n'ai pas compris grand chose à la formule perso de STEPHEN BULLEN ... peut être que j'y arriverais un jour ^^'

En tout cas mille mercis pour votre aide

Afficher une image de mon classeur dans un userform

Daroumx

XLDnaute Nouveau

Pièces jointes

zeltron24

XLDnaute Impliqué

Pièces jointes

xhudi69

XLDnaute Accro

Pièces jointes

Daroumx

XLDnaute Nouveau

Discussions similaires