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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
SavePicture
Ne fonctionne pas bien que mon image soit correctement sélectionnée...

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