Bonjour,

Mon code ci dessous énumère toutes les images de ma feuille excel...

Mais je n'arrive pas à enregistrer les images sur le disque dur. La méthode .Export fonctionne pour les chart mais bien sûr je n'arrive pas à en m'en servir pour enregistrer une image en tant qu'image.

Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Sauve_images()
    Dim img As Object
    Dim numero As Integer
    Dim chemin_image As String
 
    For Each img In Worksheets(1).Shapes 
        chemin_image = "c:\images\img" + Str(numero)
        numero = numero + 1
        img.Export Filename:=chemin_image, Filtername:="JPG"
    Next
End Sub