Discussion :

[Vakhyw]

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

[Vakhyw]

Bon alors si j'execute le code suivant :

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
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 ... VBA commence sérieusement à me plaire

Vakhyw