Discussion :

[mejmej]

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

[mercatog]

Essaies comme ceci

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()
Dim Plage As Range
 
With Sheets("synthese")
    Set Plage = .Range("D9:G9,D15:G15")
    .Shapes.AddChart
    With .ChartObjects(.ChartObjects.Count).Chart
        .SetSourceData Source:=Plage
        Set Plage = Nothing
        .ChartType = xlColumnStacked
    End With
End With
'Application.ActivePrinter = "Adobe PDF sur Ne04:"
'ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF sur Ne04:"",,TRUE,,FALSE)"
End Sub