Lier un fichier avec une icône spécifique [VBA]

Bonjour à tous,

Je programme en VBA et je souhaite insérer un objet (image ou autres) à un fichier Excel.

En sachant tout de même que je souhaite lui imposer une icône.

Pour cela j'utilise les propriétés OLEObjects comme suit:

Set Obj = ActiveSheet.OLEObjects.Add(Filename:=File, Link:=False, DisplayAsIcon:=True, _

IconFileName:="D:\MPH NC MB2\Backup\Icon.ico", IconLabel:=File)

Ceci-dit, cela ne fonctionne pas. pourriez-vous m'aiguiller sur mon erreur?

Par avance, merci.

Au lieu de chercher une des icônes que j'ai trouvé sur le net je me suis rabattu sur celle de windows:

IconFileName:="C:\WINDOWS\system32\SHELL32.dll"

Ça marche et ce sera bien suffisant.

Merci pour l'éventuelle aide que vous aurez pu m'apporter.