VBA : copier une image d'une feuille excel à une autre

Bonjour,

J'ai une image (jpeg) sur la feuille 1 de mon classeur. Je souhaiterai la copier sur la feuille 2, cellule(2,2). Comment faire ?

Merci

tiens un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub CopyImage() ' ' Bon le probléme c'est la sélection de l'image Dans fichier source... ' .. je prends la 1° Dim s As Shape Dim bOK As Boolean   For Each s In Sheets("Feuil1").Shapes If s.Type = msoPicture Then   bOK = True Exit For End If   Next If bOK Then   s.Copy Sheets("Feuil2").Activate Range("B2").Select ActiveSheet.Paste End If End Sub

---

:roll: :wink: