Re : Macro enregistrer image
Voici un bout de code:
Sub enregistre_image()
Dim sh As Shape, img As Object
Dim nom As String
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 1) <> "B" Then
nom = Range(sh.TopLeftCell.Address).Offset(0, -1).Text
nom = "C:\Users\virginie\Pictures\"...