Ecire sur un fichier Jpeg via macro

Bonsoir,

Je transfert sur un fichier Excel une image Jpeg via un bouton, j'aimerai qu'au moment du transfert une date (correspondant à la date du jour) et le contenu d'une cellule (A5) apparaissent en bas de l'image jpeg.
Est ce possible?

Voici le code que j'utilise

Code:

---

1 2 3 4 5

Sub transfert () Range("A2").Select ActiveSheet.Pictures.Insert ( _ "D:\Dossier\doc1.jpg") end sub

---

Merci d'avance

bonsoir,
dans ce tuto http://silkyroad.developpez.com/VBA/...geAcquisition/