Changement d'image

J

joss56

XLDnaute Accro

• 10 Novembre 2007

• #2

Re : Changement d'image

Bonjour,

"son" est le nom de ton contrôle image et est également le nom de ta procédure.. déjà un problème.
La procédure devrait être lancée sur l'évènement click du contrôle image:

sub image1_click()

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 10 Novembre 2007

• #3

Re : Changement d'image

Bonjour joss56, le forum,

J'ai effectivement vu ce 'detail' et je l'ai corriger en mettant Cson au lieu de son, mais mon soucis vient ds les 2 LoadPicture("C:\...
pourtant mes images sont bien ds C, à la racine et s'appellent bien HP et HP2.
je ne vois pas ce qui cloche, même si l'on est pas à Pâques.
Merci pour votre aide.
Eric D

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 10 Novembre 2007

• #4

Re : Changement d'image

Bonjour tatiak, le forum,

Je te remercie pour cette reponse rapide, mais je ne souhaite pas ouvrir une fenêtre de recherche d'image, j'ai déjà ces images ds 'C:\' et je souhaite 'simplement' importer l'une ou l'autre ds mon control image suivant la valeur de le cellule 'BA11'.
Merci pour votre aide et bon AP.
Eric D

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 10 Novembre 2007

• #5

Re : Changement d'image

Re titiak,

Ok, il n'ouvre plus la fenêtre, il pleut, mais comme avant, il me dit que le fichier spécifié est introuvable , et cette ligne en jaune: Sh.Fill.UserPicture image
image est bien le chemin de mon fichier image à importer 'C:\HR.jpeg' ou 'C;\HR.JPEG'
c'est à ne rien y comprendre...
Merci
Eric D

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 10 Novembre 2007

• #6

Re : Changement d'image

re bonjour,

Peux tu joindre ton fichier, c'est curieux, ça devrait fonctionner

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 10 Novembre 2007

• #7

Re : Changement d'image

Bonjour joss56, le forum,

Tu vas certainement pouvoir m'aider en pluse que cela doit être gros comme... enfin je te joint mon fichier,merci pour ton aide.
Eric D

 

Pièces jointes

• Classeur2.xls

  43 KB · Affichages: 67
• Classeur2.xls

  43 KB · Affichages: 74
• Classeur2.xls

  43 KB · Affichages: 83

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 10 Novembre 2007

• #8

Re : Changement d'image

Re,

Petite info si besoin est, au point ou en est, HP1 et HP2 sont 2 images jpeg, ds la racine du disk C : 'C:\'.
Voili, voilo
Merci
Eric D

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 10 Novembre 2007

• #9

Re : Changement d'image

bonjour Eric
je me permets de prendre le relais..
cordialement

 

Pièces jointes

• Eric D.zip

  14.9 KB · Affichages: 47

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 10 Novembre 2007

• #10

Re : Changement d'image

Bonjour fred65200, le forum,

Ca a l'air sympa, ça voudrait mais ça peut pas, je m'explique: je vois l'image qui change mais elle revient ds l'état d'origine. De plus quand
Dim imag as string
il me dit que le fichier est introuvable et quand j'ai:
Dim imag as image
il me dit que Variable objet ou variable de bloc with non définie.
Alors quoi faire???
Merci pour ton aide et bonne soirée.
Eric D.

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 10 Novembre 2007

• #11

Re : Changement d'image

bonsoir,

Laisse String et vérifie les noms des images dans la macro

@+

 

Dernière édition: 10 Novembre 2007

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 10 Novembre 2007

• #12

Re : Changement d'image

Re fred65200,

En commençant à poser une question relative au Pb, j'y est répondu c'était comme je m'en doutais tellement gros en fait les fichiers doivent être défini .jpg et non.jpeg. Mreci à tous ceux qui ont apporté leur contribution à la solution. J'ai honte...........
Bonne soirée à tous
Eric D

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 10 Novembre 2007

• #13

Re : Changement d'image

re

tu as peut être remarqué que j'avais remplacé l'OleObject "son" par une Shape "son".

Si tu veux conserver un OleObject, change la ligne de code

Code:

ActiveSheet.Shapes("Son").Fill.UserPicture imag

par

Code:

ActiveSheet.OLEObjects("Son").Object.Picture = LoadPicture(imag)

@+

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 11 Novembre 2007

• #14

Re : Changement d'image

Bonjour fred65200, le forum

j'ai essayé ta proposition avec OleObjets mais sans resultat alors que avec shapes ça fonctionne.
Merci A+
Eric D

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 11 Novembre 2007

• #15

Re : Changement d'image

ReBonjour fred65200, le forum,

Ou plutôt j'ai cette erreur: IMPOSSIBLE DE LIRE LA PROPRIETE OLEOBJECTS DE LA CLASSE WORKSHEET.
Comment y remedier?
Merci pour ton aide
Eric D

 

Vote positif 0 Vote négatif