Importer/exporter une image JPEG sur/depuis une Worksheet

Bonjour a tous,

Voilà de nombreuses heures que j'essaie de resoudre un problème qui paraît pourtant bien simple : importer une image JPEG puis la réexporter plus tard dans un fichier, identique et toujours en JPEG.
Je parviens bien à le faire très simplement en utilisant des Image Control mais la taille des fichiers explose puisque 2 images dans ma worksheet + l'image exportée (en bmp) consomment pas moins de 5Mo, ce qui fait beaucoup pour si peu d'informations...

L'import ne me pose pas tellement de souci avec un classique :

Code:

---

1 2 3 4 5 6

Dim picToOpen As Variant picToOpen = Application.GetOpenFilename("Pictures (*.jpg), *.jpg") If picToOpen <> False Then Call Pictures.Insert(picToOpen) End If

---

En revanche l'export est problématique, je ne sais pas récupérer d'une bonne manière mon image inserée sur ma feuille et la sauvegarder dans un fichier JPEG quelconque...
Pour ce faire, la fonction

Code:

---

SavePicture

---

Ne fonctionne pas bien que mon image soit correctement sélectionnée... :cry:

Donc ma question est comment je peux faire pour exporter mon image en tant que JPEG, identique à celle importée auparavant ?


Merci beaucoup de votre aide :)

Vakhyw

Bon alors si j'execute le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub CopySavePictures() Dim n As Long, shCount As Long   shCount = ActiveSheet.Shapes.Count If Not shCount > 1 Then Exit Sub   For n = 1 To shCount - 1 With ActiveSheet.Shapes(n) If InStr(.Name, "Picture") > 0 Then Call ActiveSheet.Shapes(n).CopyPicture(xlScreen, xlPicture) 'The following line does not work: "Type Mismatch" Call SavePicture(ActiveSheet.Shapes(n), "C:\TEST.jpg") End If End With Next   End Sub

---

Je peux ensuite simplement coller mon image copiée dans Paint par exemple.

Néanmoins que tout soit fait automatiquement depuis Excel, et donc pouvoir aller écrire mon fichier JPEG (à partir de ma Shape qui est en fait une Picture) où je le souhaite...

Merci de votre, je commence à désespérer :cry: ... VBA commence sérieusement à me plaire :aie:

Vakhyw