Enregistrer une image

Bonjour,

Je souhaiterai enregistrer une image (un qrcode) dans le même dossier que le fichier excel.

Le fichier excel est sur une partition de disque dédiée (disque S).

L'image est dans la Feuil1 cellule B2.

quelqu'un a-t-il une idée de la macro à utiliser ?

Merci par avance

Bonjour,

à adapter ...

Sub copie_images()

Dim Pict
Dim chrt As ChartObject
   For Each Pict In Worksheets("Feuil1").Pictures
      Pict.CopyPicture
      W = Pict.Width
      H = Pict.Height
      Set chrt = ActiveSheet.ChartObjects.Add(0, 0, W, H)
      Pict.CopyPicture
      chrt.Border.LineStyle = 1      'no border around chart (and picture)
      chrt.Select
      ActiveChart.Paste
      chrt.Chart.Export ThisWorkbook.Path & "\" & Pict.Name & ".jpg", "JPG"
      nb = Worksheets("Feuil1").ChartObjects.Count
      Worksheets("Feuil1").ChartObjects(nb).Delete
   Next Pict
End Sub

Cela fonctionne,

Merci beaucoup !

Parfait !

N'oublie pas de clore ce fil de discussion en cliquant sur