bonjour,
je suis débutant en vba et j'essaie d'exporter 2 résultats en image jpg
le programme fonctionne pour la 1ere exportation mais pas pour la seconde où ca coince au niveau de chart2.Paste

quelqu'un aurait il la solution
merci

mon programme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub exporte_image()
Dim Plage1 As Range
Dim Plage2 As Range
Dim chart1 As Object
Dim chart2 As Object
With Sheets("Feuil1")
    Set Plage1 = .Range("A2:K68")
    Plage1.CopyPicture
    Set chart1 = .ChartObjects.Add(Plage1.Left, Plage1.Top, Plage1.Width, Plage1.Height).Chart
    chart1.Paste
    chart1.Export "d:\image_1.jpg", "jpg"
    .ChartObjects.Delete
 
    Set Plage2 = .Range("A69:K180")
    Plage2.CopyPicture
    Set chart2 = .ChartObjects.Add(Plage2.Left, Plage2.Top, Plage2.Width, Plage2.Height).Chart
    chart2.Paste
    chart2.Export "d:\image_2.jpg", "jpg"
End With
End Sub