XL 2013 Recherche image externe

[maval]

Bonjour

Jai sur une feuille un combobox activeX qui est alimenter par la colonne"A4:A7"j'aimerai que celle ci me trouve une photo qui se trouve "J:\Monnaies\Continent" et qui me la loge dans mon image1 activeX qui se trouve sur ma feuille.

Je vous remercie de votre aide

 

[Staple1600]

Bonsoir à tous

maval
Et le petit bonjour qui va bien ? L'est-où ?

 

[maval]

Bonjour JM

Tu vois tous Excuse moi sa doit être la première fois...!

@+

 

[Staple1600]

Re

Concernant ta question, tu n'as pas trouvé d'exemples de discussion dans les archives du forum pouvant t'aider?
notamment dans ce fil que tu as ouvert en juillet 2016
https://www.excel-downloads.com/threads/appel-une-image-par-une-cellule.20010204/

Tu y trouveras la syntaxe VBA qu'il te faut.
(Il faudra juste adapter un peu)

 

[maval]

Re,

J'ai bien pris ce code depuis ce matin mais pas de succès, j'ai modifier comme ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, ActiveCell) Is Nothing Then
On Error Resume Next
chemin = "J:\Monnaies\" & ActiveCell.ComboBox1.Name & ".jpg"
Image1.Picture = LoadPicture(chemin)
End If
End Sub

@+

 

[Staple1600]

Re

Dans ton premier message, tu as marqué que le chemin était "J:\Monnaies\Continent"
Et là dans ton code, on peut lire :"D:\" & ActiveCell.ComboBox1.Name & ".jpg"
Quel est le bon chemin?

 

[maval]

re,

Non je me suis trompé regarde j'ai rectifier sur le code le bon chemin est:
J:\Monnaies

@+

 

[Staple1600]

Re

Donc ce n'est pas "J:\Monnaies\Continent\" comme indiqué dans ton premier message, alors?

 

[maval]

re

Oui J:\Monnaies
@+

 

[Staple1600]

Re

Chez ce simple code fonctionne correctement

Private Sub ComboBox1_Change()
Dim chemin$
chemin = "C:\Users\X\Documents\TEMP\"
Image1.Picture = LoadPicture(chemin & ComboBox1.Value & ".jpg")
End Sub

Mon chemin est correct et pour tester j'ai mis une image nommée Amérique.jpg
Et quand je sélectionne Amérique dans ton fichier exemple, l'image s'affiche bien dans le contrôle Image.

 

[maval]

Re

Je te remercie sa fonctionne nickel
Bonne soirée

 

[maval]

Bonsoir


J'ai une petite demande à faire mais je sais déjà que Staple1600 vas râler mais bon je suis habituer.

J'ai un code qui a était réaliser par Staple1600 que je remercie et salut au passage qui fonctionne très bien mais j'aimerai lui apporter une petite modification, sur le fichier j'ai deux onglets "Base et Modele" j'aimerai que la combobox soit sur la feuille "Base" et la photo sur la feuille "modele" si bien sur sa gêne pas notre amis JM

J'ai refait le fichier du poste#1

Je vous remercie d'avance

 

[Staple1600]

Re maval

Je vais point râler.
Je vais juste afficher une moue dubitative.

Tu ne sais pas faire cette simple adaptation de code , tu préfères direct poser la question sans éprouver la satisfaction d'avoir essayer de tester les modifications ?

EDITION: Pourquoi dans ton nouveau fichier joint, on ne trouve pas trace du bout de code VBA que je t'ai proposé ???
Là y aurait quoi de râler, mais ça gâterait la digestion de ma crême brulée...

C'était pourtant pas compliqué, non ?

Private Sub ComboBox1_Change()
Dim chemin$
chemin = "C:\Users\X\Documents\TEMP\"
Feuil2.Image1.Picture = LoadPicture(chemin & ComboBox1.Value & ".jpg")
End Sub

 

[maval]

Re JM

Je savais que tu finirai par râler mais bon il faut faire avec..!
Je te remercie sa fonctionne nickel
Passe une bonne soirée

 

[Staple1600]

Re

maval
Et jamais tu réponds aux questions posées ?

Re maval
1) Tu ne sais pas faire cette simple adaptation de code , tu préfères direct poser la question sans éprouver la satisfaction d'avoir essayer de tester les modifications ?
2) EDITION: Pourquoi dans ton nouveau fichier joint, on ne trouve pas trace du bout de code VBA que je t'ai proposé ???
3) C'était pourtant pas compliqué, non ?

Je n'ai pas râlé comme je l'ai dit à cause de ma crème brulée.