XL 2016 exporter des images dans un dossier

[Wissem]

Bonjour,
j'ai un classeur qui contient plusieurs feuilles qui contient des images dont leurs noms dans des cellules différents.
je souhaite faire une macro vba qui me permet d'enregistrer les images dans un dossier avec leurs nom spécifier dans la cellule:
exemple:
le nom de la première image est dans A2 et la deuxième C2 et 3eme F3 et puis A7 ... A12 et A17

cijoint un fichier pour exemple

 

[fanch55]

Bonjour,
Le code ci-dessous devrait répondre à votre demande :

Sub ExportImg()
    Dim Img As Picture, Nom As String
    For Each Img In ActiveSheet.Pictures
        Img.CopyPicture
        Nom = Img.TopLeftCell.Offset(-1, -1)
        Nom = IIf(Nom = "", Img.Name, Nom)
        Debug.Print "nom de l'image en " & Img.TopLeftCell.Address & " : " & Nom
        With ActiveSheet.ChartObjects.Add(0, 0, Img.Width, Img.Height)
            .chart.Paste
            .chart.Export ThisWorkbook.Path & "\" & Nom & ".jpg"
            .Delete
        End With
    Next
End Sub

Exemple pour la réf 012016: si l'image est bien positionné sur la cellule B3, elle aura comme nom ce qui est en cellule A2 sinon elle conservera son nom d'image .