comment insérer automatiquement une image dont le chemin est dans une cellule ?

[eric]

Dans l'exemple joint que j'ai simplifié j'ai une feuille base contenant des données que je dois permettre de visualiser synthétiquement sur la feuille visu. Est il possible d'y inclure automatiquement une photo dont le chemin est indiqué dans une cellule ?

 

[STéphane]

une soluce, je ne sais pas si elle te plaira

Sub Zonedeliste1_QuandChangement()

'continuer la macro si erreur (comme pas de photo à supprimer, ou pas de photos en suivant le chemin trouvé dans B10)
On Error Resume Next


'supprimer la dernière photo crée
ActiveSheet.Pictures(ActiveSheet.Pictures.Count).Delete
ActiveSheet.Pictures.Insert([B10]).Select
End Sub



une autre soluce
tu insères un objet image avec la barre d'outils Commandes/contrôles
et tu utilises une instruction comme suit
ActiveSheet.Image1.Picture = LoadPicture("D:\RoyerS\Mes docs\Mes images\birdby3.bmp")

bye
stephane

 

[eric]

un grand merci stéphane. la 1ere solution me convient tout à fait.
Par curiosité si je n'avais pas utilisé de zone de liste est ce que ce serait possible d'utiliser directement le chemin del l'image contenu dans la cellule ?

 

[Basu]

Oups erreur
je vous pas poster la
dsl !!