Copier uniquement les images

Salut RMYX,
Voila je te propose cette petite macro :
elle copie les images de la feuille 1 pour les coler dans la feuille 2
une a une malheureusement ! j'ai pas mieux
Il y a peut etre moyen de faire mieux avec for each mais j'ai pas reussi...

Sub copy_img()
nb_obj = Sheets("feuil1").Shapes.Count ' Compte les objets dans la feuille1
For i = 1 To nb_obj
TypeShape = Sheets("feuil1").Shapes.Item(i).Type 'Recupere le type de l'objet
If TypeShape = msoPicture Then 'Si l'objet est une image
Sheets("feuil1").Shapes.Item(i).Copy
Sheets("feuil2").Paste
End If
Next i
End Sub

en esperant que cela puisse t'aider
a+ sur le forum

Jef

Re-salut,

Bin si j'ai reussi ...

Sub copy_img2()
Dim Img As Shape
For Each Img In Shapes
If Img.Type = msoPicture Then
Img.Copy
Exit For
End If
Next
Sheets("feuil2").Paste

End Sub


Ca racourci drolement le code n'est ce pas ?

Jef

Salut Jef,

merci pour le code ça me "sauve la vie". A charge de revanche (quoiqu'il semble que tu maitrises bp mieux que moi).

A plus