Discussion :

[Equus]

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

[SfJ5Rpw8]

tiens un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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