Discussion :

[Kimy_Ire]

Bonjour à tous,

J'ai écumé plusieurs site sans vraiment comprendre ni trouver comment faire.
Je m'attaque au téléchargement d'une image dans un UserForm.

Je procède donc de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Controls("Image" & i).Picture = LoadPicture("mon_chemin")

Or, je tombe sur l'erreur d'exécution 481 : "Image incorrecte".

J'ai essayé avec un image "classique" (trouvé un peu n'importe où) dans un premier temps.
J'ai déniché, dans un forum, que l'image ne devait pas dépasser 32x32... rien n'y fait non plus...
Ce n'est pas un problème de code... puisque lorsque j'essaye d'insérer manuellement mon image dans mon UserForm, cela ne fonctionne pas non plus.

Bref, je suis dans le flou complet par rapport à cette propriété. Pouvez-vous éclairer ma lanterne ?

Je vous remercie par avance et reste à votre disposition pour tout complément.

Cordialement,
Kimy

[Kimy_Ire]

Bon, ça doit venir d'extension de fichier... Pourtant j'avais bien des .jpg...
J'ai re-téléchargé d'autres .jpg qui fonctionnent dorénavant... moi pas bien comprendre !

Cordialement,
Kimy

[patricktoulon]

Bonjour
le remplissage d'un control image dans un userform n'accepte que les jpg ou bmp
pour les autre format il te faudra utiliser les api gdi ou gdi+ et olecreatepictureindirect

[Kimy_Ire]

Bonjour Patrick,

Sauf erreur de ma part, la méthode LoadPicture accepte bien les .jpg. Ce sont les .png qui ne sont pas acceptés.
J'ai utilisé cette méthode, bien entendu, pour remplir des Controls "Image".
En tout cas, de mon côté, cela fonctionne correctement avec le premier mentionné mais pas avec le second.

A ta disposition pour en parler !

Cordialement,
Kimy

[Invité]

bonjour,
peux tu fournir une image?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Label1.Picture = LoadPicture("C:\Users\Robert\Desktop\MyLogo2.gif")

[Kimy_Ire]

Bonjour Robert,

Je ne sais pas si je comprends bien la question.
Je peux loader un .gif, en effet. Mais je suis dans Image1.Picture.

Cordialement,
Kimy

[Invité]

On peut utiliser un label a la place d'une image et c'est plus coulant!

Dans l'exemple précédant j'ai pris une image au hasard, il ce trouve que c'était un gif!

Ma question était peut nous poster une image en exemple?

[Kimy_Ire]

Bon, je crois que le téléchargement du fichier incorrecte dit tout... "Extension de fichier .png incorrecte".
J'avais donc bien un problème d'extension de fichier.

Voici une image qui fonctionne :

Et je ne peux donc pas uploader le fichier incorrect.

Cordialement,
Kimy

EDIT : C'est mieux quand je la dépose autre part (hostingpics).

[Invité]

en ce qui me concerne les 2 fonctionne!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.Label1.Picture = LoadPicture("C:\Users\Robert\Desktop\mini_852181RCa.jpg")
Me.Image1.Picture = LoadPicture("C:\Users\Robert\Desktop\mini_852181RCa.jpg")

la vérité est ailleurs!

[patricktoulon]

bonjour
et oui c'est ce que je disais les png ne peuvent as etre mis dans les controls image ou label
il faut astucer avecles apis gdi+ et oleacreate

ou charger l'image png dans un webbrowser

re
tiens prend ce fichier et regarde comment je met une image png ou autre dans un control image dans un userform

je l'ai fait en 32 bit si tu a office 64 il te faudra adater les apis (ptrsafe)

en esperant que cela puisse t'aider

[Kimy_Ire]

Oui Patrick. Le sujet est résolu !

Je vais pas refaire tout l'historique mais j'avais simplement une image en ".png" qui s'est transformé "manuellement" en ".jpg".
Donc Excel pouvait bien aller chercher le ".jpg" mais ne pouvais pas l'intégrer... d'où mon incompréhension.

Lorsque j'ai téléchargé un "vrai .jpg", là ça fonctionnait sans problème... Bref, un topic qu'on peut supprimer !
C'est plus de l'ordre d'un problème d'extension que de VB.

Cordialement,
Kimy

[Invité]

la vérité est ailleurs!

[patricktoulon]

j'ai oublier de dire qu'avec mon module toute image (jpg,png,bmp,gif,upx)et bien d'autre rentre dans les controls image ,ca te parle peut etre plus hein!!!

ne le jete pas trop vite il a bien d'autre application ce petit bout de code si tu recherche dans les contributions tu en aura un appercu