bonjour,
j'essaie de faire tourner cette macro mais il m'indique error fin debogage au niveau ActiveSheet.Shapes.AddChart.Select
Merci
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 Sub Macro1() ' ' Macro1 Macro ' ' Range("D9:G9,D15:G15").Select Range("D15").Activate ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range( _ "'synthese'!$D$9:$G$9;'synthese'!$D$15:$G$15") ActiveChart.ChartType = xlColumnStacked Application.ActivePrinter = "Adobe PDF sur Ne04:" ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF sur Ne04:"",,TRUE,,FALSE)" End Sub
Partager