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
Partager