renvoie à une image

[kilcelalf]

Bonjour,
je souhaite crée un chant et selon les données entrées ouvrir une page exel avec une image incerée.
Ce n'est pas un lien hyper texte exemple:
j'ai trois referances en tapant l'une ou l'autre de ces referances dans un chant je souhaite qu'une page s'ouvre avec la photo de l'objet tapé dans ce chant.
J'espere avoir ete asser clair dans mes explications, c'est ma premiere connexion sur le forum.
Merci à tous d'avance.
Alfredo

 

[N_Christian]

Bonjour Kilcelalf

essayes :

Dim image As String

image = ActiveCell.Formula
image = 'd:\\' & image & '.gif'
ActiveSheet.Pictures.Insert(image).Select

End Sub


tu peux ajouter un test pour vérifier que ta celllule n'est pas vide

if image <> '' then
image = 'd:\\' & image & '.gif'
ActiveSheet.Pictures.Insert(image').Select
end if

A+ Christian

 

[kilcelalf]

bonjour,
merci c'est sympa j'ai juste oublié de preciser 'j'pige pas l'marsien'
non sans blague c'est juste un peut pas claire pour moi je peux avoir un exemple STP.
En tout cas merci et à bientot.