celllue dans image JPG

Option Explicit


Sub Export_JPG()
    Dim Plage As Range
    Dim Chemin As String
    Dim Wks As Worksheet


    Chemin = ActiveWorkbook.Path & "\"    'a adapter


    For Each Wks In ActiveWorkbook.Worksheets
        If Left(Wks.Name, 4) = "plat" Then
            Set Plage = Wks.Range("A1:B3")
            Application.ScreenUpdating = False
            Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
            With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
                .Paste
                .Export Chemin & Wks.Cells(2, 2) & ".jpg", "JPG"
            End With
            ActiveWorkbook.Close False
        End If
    Next
End Sub