bonjour,
j'essaie de faire tourner cette macro mais il m'indique error fin debogage au niveau ActiveSheet.Shapes.AddChart.Select

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
Merci