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").Select
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
