tableau croisé Macro

[invite64656c8a]

Bonjour à tous,

Lorsque j'enregistre une macro pour faire un tableau croisée dynamique j'ai un petit soucis pour le faire executer par la suite voici mon code:


Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 10/03/2011 par ly018
'

'
ActiveWorkbook.Worksheets("Feu il2").PivotTables("Tableau croisé dynamique2"). _
PivotCache.CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVe rsion10
ActiveWorkbook.ShowPivotTableF ieldList = True
End Sub

Merci

PS: mon code est beaucoup plus long mais je bloque déjà à ce niveau
-----

[invite64656c8a]

pour le fun voici mon code en entier si vous y voyer d'autrzes soucis...

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 10/03/2011 par ly018
'

'
ActiveWorkbook.PivotCaches.Add (SourceType:=xlDatabase, SourceData:= _
"BD_Non_Conformites_v12_compac t!C20").CreatePivotTable TableDestination:="Feuil2!L3C1 ", _
TableName:="Tableau croisé dynamique2", DefaultVersion:= _
xlPivotTableVersin10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet. Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveWorkbook.ShowPivotTableF ieldList = True
With ActiveChart.PivotLayout.PivotT able.PivotFields("Priorite")
.Orientation = xlRowField
.Position = 1
End With
ActiveChart.PivotLayout.PivotT able.AddDataField ActiveChart.PivotLayout. _
PivotTable.PivotFields("Priori te"), "Nombre de Priorite", xlCount
ActiveChart.ChartTitle.Select
Selection.Characters.Text = _
"Action a mettre en œuvre suivant l'urgence du problème"
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=54).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveChart.ChartArea.Select
Sheets("Graph2").Select
Sheets("Graph2").Copy After:=Workbooks("generer_QA_M atrix.xls").Sheets(1)
End Sub