Ouvrir une image en fonction d'une cellule via le VBA

Bonjour à tous ;

Depuis quelque jour je cherche un moyen d'ouvrir une image (comme si on cliquait dessus pour l'ouvrir) grâce a un bouton dans mon tableau excel. :calim2:

Afin d’être plus claire je vais donner un exemple:

Dans ma cellule "A1" j'ai le nom (titre) de mon image (exemple "IMG1")
Dans la cellule "B1" j'ai mon bouton (créé sous l'onglet développeur)
Je souhaite tout simplement que quand je clique sur le fameux bouton qui comprend le code VBA qui a donc la particularité de lire la contenue de la cellule "A1" soit "IMG1", il m'ouvre comme par magie l'image qui a le même nom que la cellule "A1".
Pour information il y aura 2845 boutons (une par ligne) le code doit donc être répétable (comme quand on étend une suite de cellules "C1"=1 puis on étend jusqu’à 10 par exemple)
Pour plus d'explication je travaille sur la création d'un dossier excel qui ressent toutes les informations des poteaux incendie du secteur et je souhaite tout simplement que mes chefs (ayant le dossier sur serveur) puissent cliquer sur un bouton et voir le poteau incendie en images.
Je vous passe le moment où je fais mes excuses pour le peux de compétence que je doit avoir par rapport à vous. :oops:

toutefois je vous remercie énormément pour votre aide prochaine! :D

je suis bien sur disponible pour vous fournir plus d'informations si besoin.

Merci à vous tous.

bonjour
je sais pas si c'est ce que tu cherches :

Code:

---

1 2 3 4 5 6

Sub insertimage() With Sheets("feuil1") Image = "C:\Users\DELL\Desktop\Personnel\" & .Cells(1, 1) & ".jpg" .Shapes.AddPicture Image, 0, 1, .Cells(3, 3).Left, .Cells(3, 3).Top, 70, 50 End With End Sub

---

voir cette discussion

Citation:

---

https://www.developpez.net/forums/d1...-nom-variable/

---

Bonjour BENNASR;

Merci pour ta réponse super rapide! j'ai donc testé ton code mais après un débogage il m’affiche ce qu'il suit.

Pièce jointe 526335

Je suis désolé mais je ne comprend pas le fonctionnement de celle-ci, pourrais tu m'expliquer comment l'appliquer a mon tableau? STP en espérant que ton code fonctionnera a merveille :P

supprimer cette ligne et voir ce que ça donne

Citation:

---

Envoyé par BENNASR

bonjour
je sais pas si c'est ce que tu cherches :

Code:

---

1 2 3 4 5 6

Sub insertimage() With Sheets("feuil1") Image = "C:\Users\DELL\Desktop\Personnel\" & .Cells(1, 1) & ".jpg" .Shapes.AddPicture Image, 0, 1, .Cells(3, 3).Left, .Cells(3, 3).Top, 70, 50 End With End Sub

---

voir cette discussion

---

Rien ne ce passe :piou:

l’extension de ton image est .jpg ??
le code fonctionne parfaitement chez moi !!

Oui mon image est bien une .JPG mais quand je supprime la ligne (celle en jaune rien ne ce passe).

remettre la partie en jaune
si ça fonctionne pas joindre un petit fichier test sans données confidentielles

Bonjour wouairness, bonjour BENNASR

J'ai récemment adapté un code pour incorporer de manière automatique une image en fonction de la valeur d'une cellule. Je détaille un peu le fonctionnement du code, cela pourra peut-être vous servir ? Dans mes exemples, je pars sur une plage de cellules de A1 à A5

Dans un premier temps, j'ai défini la plage de cellules que mon image occuperait. Dans mon cas, elle est fixe. Mais dans ton cas, il est complètement possible de rendre cette position variable.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim FilePath as String Dim Filename as String   FilePath = "C:\BanqueImages\"     For i = 1 To 5 Set PicRange = Cells(i,2) 'Cette ligne te permet d'attribuer ton image à la cellule (i,2)'   Filename = FilePath & Cells(i,1).Value & ".jpg" 'Cette ligne attribue le chemin complet à la variable Filename' 'Exemple : C:\BanqueImages\PoissonChat.jpg (en admettant que A1 = PoissonChat) '   With PicRange Set Pic = Shapes.AddPicture(Filename, msoFalse, msoTrue, .Left, .Top, -1, .RowsHeight) 'Là tu fais joujou avec les paramètres' End With Next i

---

J'espère que mon exemple est assez compréhensible ! Je fournis l'entièreté de mon code réalisé ci-dessous. Bonne chance ! (Je n'ai pas testé mon code exemple, il se peut qu'il y ait des erreurs, et qu'il ne soit pas optimal, je ne suis qu'un novice)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub TestImage() Set PicRange = Worksheets("Résumé").Range("D1:G6") Worksheets("Résumé").Shapes(1).Delete   Filepath = "Z:\PBR_LOG\ARIBA_2019\TestVBA\SitesImages\" Filename = Filepath & Worksheets("Résumé").Range("A2") & ".jpg"   With PicRange Set Pic = Worksheets("Résumé").Shapes.AddPicture(Filename, msoFalse, msoTrue, .Left, .Top, -1, .Rows.Height) End With End Sub

---

Bonjour,

Pièce jointe 526944

J'ai essayer ton code mais malheureusement rien ne ce passe (autre qu'un code d'erreur "erreurs de compilation"), il est fort possible que j'ai mal utiliser ton code sur excel puisque je suis malheureusement pas aussi Ford que vous toute fois merci énormément pour votre aide. Ci-joint un screen du code.Pièce jointe 529094

Bonjour,

Dans mon exemple, en colonne A tu dois avoir les valeurs textuelles de l'image recherchée. C'est cette valeur qui correspond au nom de l'image en question à aller chercher.
En colonne B se situeront toutes tes images. C'est sur cette colonne que tu dois "Set" la Range de ton image.j

Tu peux supprimer le contenu de la fonction TestImage et le remplacer par celui qui se situe au-dessus. Ta fonction TestImage sera ainsi donc adaptée à tes besoins.
Rajoute ainsi "Worksheets("TR2") " devant " Cells(i,2)" et " Cells(i,1)"

Par ailleurs, je te conseille de tester pas à pas (F8) et de vérifier que les valeurs prises par les variables sont cohérentes (voir existantes tout simplement). De cette façon, tu pourras nous communiquer plus aisément l'erreur qui est à l'origine du non fonctionnement du code.

Rebonjour :triste:

J'ai essayer ton premier code seule sans résultat il me mets l'erreur suivante : Pièce jointe 529097 Pièce jointe 529105.

Je vous joint un support visuel et quelle que information afin de bien cerné l'action que je souhaite faire.
Désolé pour le temps de réponse assez long mais j'ai testé plusieurs configuration des codes (tous en échec).

Cette partie du code ne correspond pas à ta situation.
Ce que toi tu souhaites, si j'ai bien compris, c'est d'avoir dans une colonne le nom des Images, et dans une autre les images associées.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub TestImage() Dim Filename as String, FilePath as String Dim i as Integer FilePath = D:\ .... 'Ton chemin à toi'   For i = 1 to 5 Set PicRange = Worksheets("TR1").Cells(i,2) 'La Colonne B qui affichera tes images'   Filename = FilePath & Cells(i,1) & ".jpg" 'D:\... & "le nom de l'image dans ta première colonne à la ligne I"'   With PicRange Set Pic = Worksheets("TR1").Shapes.AddPicture(Filename,msoFalse,msoTrue,.Left,.Top,-1,.RowsHeight) 'Paramètres de l'image. Tu peux trouver tout ça sur internet pour plus de personnalisation' End With   Next i   End Sub

---

Il faut bien évidemment que toutes tes images soient stockées dans le bon chemin ! Essaie d'y mettre 5 images appelées respectivement : Image1, Image2, Image3, Image4, Image5 - et de la cellule A1 à A5 tu écriras : Image1, Image2, Image3, Image4, Image5 - dans ta feuille TR1 bien évidemment.

Merci pour ton aide et pour ton code il me mets plus d'erreur pour le chemin d’accès mais seulement pour les paramètres d'image que j'ai laissé comme t'elle. Pour le bon fonctionnement du code je doit les modifier ou je peux laisser comme tu les a mis? on est bien d'accord que ton code permet d’afficher un lien vers les images détecté et non afficher l'image directement sur excel?!:roll:Pièce jointe 529113
Je sens qu'on va bientôt y arriver ;)

Ah ! Tu veux que ce soit le lien qui soit affiché, et non juste l'image ?

Quelle est l'interaction que tu souhaites que l'utilisateur effectue. Les boutons doivent-ils déjà être existants ? L'utilisateur doit-il d'abord choisir quelle cellule de la première colonne il souhaite l'image ?

Pour éviter de créer 2845 boutons, le mieux selon moi serait que tu demandes à l'utilisateur de saisir le titre de l'image (de ta colonne A) via une InputBox. En réponse à cette InputBox, l'image s'affichera automatiquement en ayant pris ta valeur de la colonne A comme variable.

Désolé d'avoir mal compris au premier coup d'oeil ^^'

Fais-moi savoir si cette solution pourrait plus te convenir. Je pense que c'est, de manière "logique", la plus adaptée afin d'éviter de créer 2844 boutons qui seront inutiles, puisque l'utilisateur ne cliquera que sur 1 seul.

Je m'en excuse j'ai peux être pas été assez claire dons mon tout premier message, je reprend pour tout simplifier:

Le document excel est créé dans le but de mon travail, il recense toute les informations les Poteaux incendie des communes sous ma juridiction (7 communes pour 1254 poteaux exactement).
Chaque ligne du document excel est attitré pour un PI (Poteaux Incendie) comprenant la localisation, information primaire,teste de pression etc

A la fin de la ligne il y a une partie "annexe" qui comprend un lien hypertexte afin d'afficher automatique sur MAP l’emplacement du PI.
Dans cette partie "annexe" je souhaiterais mettre une colonne avec un lien qui affiche soit sur internet soit sur le pc directement l'image du poteaux incendie. je vous joint le fonctionnement de la localisation afin de vous montrer le visuel identique attendue.
Ce document est a l'utilisation de mes supérieur (Encore pire que moi pour l'exploitation de excel :lol: donc le plus simplement que possible sera le mieux)

Ps: Plusieurs colonne on été caché entre n'sdis et observation (pour raison de confidentialité)

Pièce jointe 529119

Je vois les choses de la manière suivante :

La macro liée au CommandButton1 te permettrait de...

0) Supprimer l'image du dernier PI (si encore présente)
1) Demander à l'utilisateur de saisir le code d'identification du PI souhaité. (InputBox)
2) Une fois la demande validée, cela affichera automatiquement l'image qui est associée à ce code d'identification du PI. (En définissant le Range de l'affichage au niveau de la ligne de ce dernier, afin que tu puisses voir toutes les données du PI sans que l'image ne soit affichée à un emplacement autre). Tu pourras jouer avec les paramètres de l'image afin de définir les dimensions que tu souhaites, mais aussi de définir le point de départ grâce à au "Set PicRange".

Est-ce que cela pourrait déjà + correspondre à ta demande ?

Le bouton que tu vois sur l'image n'est aucunement lier a l'affichage des images. Cependant ci la création d'un "inputbox" est pour vous plus facile et plus simple d'utilisation que de juste cliquer sur un lien dans la Cellules "BM13" afin d'afficher l'image pourquoi pas. Sur ce point j'ai une petit question , est t'il possible de définir une liste quand le document demandera l'identification du PI?

Une liste des 1254 poteaux ? Oui c'est possible. Mais je voudrais aussi savoir une chose :

Y a-t-il une ou plusieurs variables spécifiques que tes supérieurs analysent afin de savoir quel poteau ils veulent voir ?

C'est surtout que cette idée évite de créer 1254 liens vers des images. De mon point de vue, ça surchargerait le fichier, alors que d'ouvrir directement l'image via un formulaire en ouvre directement une unique.
Ainsi, tu n'aurais pas 1253 liens qui resteront inutilisés. Je ne saurai te dire si c'est vraiment plus efficace, je n'ai pas encore cette "science" de l'optimisation. Mais d'un point de vue logique, il me semble que cela est plus efficace.