Afficher une image sans "insertion"

bonjour à tous,

je voudrais charger une image à partir d'une adresse pour pouvoir la changer ensuite sans toucher au fichier (comme pour un site web)

ce qui n'est pas possible , à priori, quand on utilise la fonction insertion

merci

bonjour

tu voudrais pouvoir charger des images à partir de chemins relatifs ?

à partir d'une adresse du style c:\images\image.jpg

et quand je change l'image dans le dossier,
elle change dans le fichier Excel

merci

bonsoir Yann , bonsoir Jon

tu peux éventuellement insérer un WebBrowser dans ta feuille :
bouton autres controles ( le marteau et la clé)
sélectionnes Navigateur Web Microsoft
et tu places l'objet dans la feuille

et inseres cette macro au niveau de thisWorkbook :

Private Sub Workbook_Open()
Feuil1.WebBrowser1.Navigate "c:\images\image.jpg"
End Sub

à chaque ouverture du classeur l'image s'affichera dans le WebBrowser


sinon , avec la methode "insérer " , l'image est placée en "dur" dans le classeur
le principe serait donc à chaque ouverture du classeur de supprimer l'image existante et de la remplacer par l'image située dans le repertoire "c:\images\image.jpg"
par exemple ( toujours à placer dans ThisWorkbook )

Private Sub Workbook_Open()
Dim Emplacement As Range
Dim image As Object, ShapeObj As Object

On Error GoTo fin:
For Each ShapeObj In Feuil1.DrawingObjects ' boucle pour supprimer ancienne image
If ShapeObj.Name = "cible" Then ActiveSheet.Shapes("cible").Delete
Next ShapeObj

Feuil1.Pictures.Insert("c:\images\image.jpg").Sele ct
Set Emplacement = Range("D3:E8") 'adapter l'emplacement de l'image dans la feuille

Set image = Feuil1.DrawingObjects(Feuil1.Shapes.Count) 'adapter selon nombre total de shapes dans feuille
With image.ShapeRange
.Name = "cible" ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With

Exit Sub
fin:
If Err = 1004 Then MsgBox "Insertion d'image interrompue . "
End Sub

pour que cela fonctionne ( dans les deux cas ) l'image doit toujours etre nommée de la meme maniere et etre placée dans le meme répertoire


bonne soirée
MichelXld