macros et images

[Cruz]

slt tout le monde

J'ai une macro de ce type:

Sub macro 1()
If Range('A2') = 25 Then
Activesheet.pictures.insert('C:/Mes documents/image 1.bmp')
End If
End Sub

J'aimerais ajouter dans cette formule quelquechose qui fasse que l'image 1 soit 'suivie' si on la déplace...
ex: J'ai créér une feuille excel contenant cette macro, j'envoie cette feuille et l'image 1 à une autre personne qui ne connait pas très bien excel. Il place ces 2 objets dans le disque D:
J'aimerais que la formule se change automatiquement lorsque je déplace l'image 1 ,donc la 3e ligne se changerai automatiquement en:
('D:/image 1.bmp')

merci d'avance
a+

 

[myDearFriend!]

Bonjour Cruz,

Pas sûr d'avoir tout compris, mais si l'image est toujours dans le même répertoire que le classeur :

Sub Macro1()
      If Range('A2') = 25 Then
            ActiveSheet.Pictures.Insert (ThisWorkbook.Path & '\image 1.bmp')
      End If
End Sub

Cordialement,