XL 2013 Recherche image externe

Staple1600

XLDnaute Barbatruc

• 5 Août 2016

• #2

Bonsoir à tous

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2016

• #3

Bonjour JM

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

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2016

• #4

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)

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2016

• #5

Re,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2016

• #6

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?

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2016

• #7

re,

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

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2016

• #8

Re

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2016

• #9

re

Oui J:\Monnaies
@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2016

• #10

Re

Chez ce simple code fonctionne correctement

VB:

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.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2016

• #11

Re

Je te remercie sa fonctionne nickel
Bonne soirée

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2016

• #12

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2016

• #13

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 ?

VB:

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

 

Dernière édition: 5 Août 2016

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2016

• #14

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2016

• #15

Re

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

Staple1600 à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif