Discussion :

[m0urad]

Bonjour,

Me revoila avec un nouveau petit problème, je m'explique :

J'ai crée un classeur excel qui va me servir de base de données.
Ce classeur contient 3 feuilles:
- La premiere appellé: Presentation, est une feuille qui contient ma mise en page en forme de tableau et une listebox ( liste de mes produits ).
- La seconde appellé: Liste, est une feuille qui contient un tableau ou chaque ligne contient un produit et chaque colonne une categorie.
- La troisième: resultat: qui est une feuille intermediare.

Lorsque je clique sur un produit de ma listbox celui ci lui affecte un numero, ce numero va etre recherché dans ma ma base de données pour lui associé un produit et donc affiché les valeurs pour ce produits ( via la fonction VLOOKUP ) dans ma présentation.

Bref tout tourne correctement sauf que j'ai besoin d'une photo pour la présentation de chaque produit et mon problème est que je ne sais pas comment placer un lien vers la photo dans la derniere colonne de ma base de données et faire en sorte que lorsque je clique sur mon produit il cherche les infos dans ma base de données et place la photos dans ma présentation.

Je pense que je vais placer mon fichier pour mieu comprendre ...

Merci a tout ceux qui se pencheront sur le problème

[ouskel'n'or]

Si dans cette colonne ("... photo dans la derniere colonne de ma base de données") tu as le nom de l'image et son chemin, et que tu fais déjà le reste tout bien, quel est le problème ?

[m0urad]

Mon soucis est que je ne sais pas comment associer l'image ou le fichier de l'image a une cellule.
En essayant de mettre l'adresse de l'image en hyperlien ca ne fonctionne pas car a la limite ca ouvre l'image mais mon souhait est que cette image soit placé a un endroit précis ( et redimensionnez ) comme le fait la fonction VLOOKUP avec mes données.

Car les commerciaux veulent juste cliqué sur le nom est voir tout apparaitre alors il demande au pauvre gars du labo R&D de se débrouiller

[ouskel'n'or]

Insère une image de la boîte à outils Dessin
Je suppose qu'en Z10 tu aies le nom du fichier, que ce fichier se nomme "Clou de la soirée", que tes fichiers se trouvent dans "C:\Documents and Settings\TonNom\Mes documents\Mes images\" et que tu souhaites que l'image se place en D4.
Le fichier que tu as à ouvrir de nommera donc "C:\Documents and Settings\TonNom\Mes documents\Mes images\Clou de la soirée.jpg"
Là, tu as tout ce qu'il te faut :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Insérer()
Dim NomFich as string, NoLig as long, chemin as string
    Chemin = "C:\Documents and Settings\TonNom\Mes documents\Mes images\"
    NoLig = 10 ' trouvé grâce à la recherche sur le nom du produit
    NomFich = Chemin & Range("Z" & NoLig) & ".xls"
    Range("D4").select
    ActiveSheet.Pictures.Insert(NomFich)
End Sub
'Et pour supprimer l'ancienne image :
Sub Supprimer()
    ActiveSheet.Shapes(ActiveSheet.Shapes.count).delete
'ou, si la sélection s'avère nécessaire dans ce cas-là :
    ActiveSheet.Shapes(ActiveSheet.Shapes.count).Select
    Selection.Delete
End Sub

Bonne soirée