Problème Big Macros ...

[EBL]

Bonjour Tout le monde,

Je bloque sur un problème avec une macros qui devrait générer plusieurs Tableaux croisés dynamiques lors de l'ouverture du fichier.
Si j'ai bien compris l'erreur, il me bloque au niveau de la création des feuilles

Quelqu'un peut il m'aider?
J'uploaderai le fichier plus tard dans la soirée

En attendant voir les lignes en rouges et gras plus bas.

Merci à ceux qui pourront m'aider

Bàv

PS: j'ai du supprimer la fin de la macros pour des raisons de nombres de caractères

Ebl

Sub auto_open()
'
' All_Pivots Macro
' Mise en Place de tous les pivots
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TOTAL_MS_PA_NC!R1C1:R32395C27").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique8"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique8").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique8").AddFields RowFields:= _
Array("Company", "Données"), PageFields:=Array("SpocLevel3", "kam_bp")
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("CREDITS" _
)
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("PAC")
.Orientation = xlDataField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("DUE")
.Orientation = xlDataField
.Position = 3
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields( _
"DUE > 60")
.Orientation = xlDataField
.Position = 4
End With
ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields( _
"DUE-CREDITS-PAC").Orientation = xlDataField
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Company" _
)
.PivotItems("EBL").Visible = False
End With
Range("B4").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Données" _
)
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotSelect "", _
xlDataAndLabel
ActiveSheet.PivotTables("Tableau croisé dynamique8").Format xlReport4
Range("B5:F7").Select
Selection.NumberFormat = "#,##0 $"
Cells.Select
Selection.ColumnWidth = 13.86
Cells.EntireColumn.AutoFit
Range("B6").Select
Sheets("Feuil8").Select
Sheets("Feuil8").Name = "Pivot General" Sheets("TOTAL_MS_PA_NC").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TOTAL_MS_PA_NC!R1C1:R32395C27").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique9"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique9").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique9").AddFields RowFields:= _
"Name1", PageFields:=Array("kam_bp", "SpocLevel3")
ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("CREDITS"). _
Orientation = xlDataField
Range("A5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("Name1"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
With ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("Name1")
.AutoSort xlAscending, "Somme CREDITS"
.AutoShow xlAutomatic, xlBottom, 30, "Somme CREDITS"
End With
Range("B6:B36").Select
Selection.NumberFormat = "#,##0 $"
ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotSelect "", _
xlDataAndLabel
ActiveSheet.PivotTables("Tableau croisé dynamique9").Format xlReport4
Columns("B:B").Select
Selection.NumberFormat = "#,##0 $"
Range("B15").Select
Sheets("Feuil9").Select
Sheets("Feuil9").Name = "Top 30 Credits"
Columns("B:B").EntireColumn.AutoFit
Sheets("TOTAL_MS_PA_NC").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TOTAL_MS_PA_NC!R1C1:R32395C27").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique10"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique10").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique10").AddFields RowFields:= _
"Name1", PageFields:=Array("SpocLevel3", "kam_bp")
ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("PAC"). _
Orientation = xlDataField
Range("A5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("Name1"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
With ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("Name1")
.AutoSort xlAscending, "Somme PAC"
.AutoShow xlAutomatic, xlBottom, 30, "Somme PAC"
End With
ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotSelect "", _
xlDataAndLabel
ActiveSheet.PivotTables("Tableau croisé dynamique10").Format xlReport4
ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("Name1"). _
AutoSort xlDescending, "Somme PAC"
Columns("B:B").Select
Selection.NumberFormat = "#,##0 $"
Range("A9").Select
ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("Name1"). _
AutoSort xlAscending, "Somme PAC"
Sheets("Feuil10").Select
Sheets("Feuil10").Name = "Top 30 Pac"
Sheets("TOTAL_MS_PA_NC").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TOTAL_MS_PA_NC!R1C1:R32395C27").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique11"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique11").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique11").AddFields RowFields:= _
"Name1", PageFields:=Array("kam_bp", "SpocLevel2")
ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields( _
"DUE-CREDITS-PAC").Orientation = xlDataField
Range("A5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Name1"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
With ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Name1")
.AutoSort xlAscending, "Somme DUE-CREDITS-PAC"
.AutoShow xlAutomatic, xlBottom, 30, "Somme DUE-CREDITS-PAC"
End With
ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotSelect "", _
xlDataAndLabel
ActiveSheet.PivotTables("Tableau croisé dynamique11").Format xlReport4
Columns("B:B").Select
Selection.NumberFormat = "#,##0 $"
Sheets("Feuil11").Select
Sheets("Feuil11").Name = "Top 30 D-C-P"
Sheets("TOTAL_MS_PA_NC").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TOTAL_MS_PA_NC!R1C1:R32395C27").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique12"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique12").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique12").AddFields RowFields:= _
"Name1", PageFields:=Array("SpocLevel3", "kam_bp")
ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields("DUE"). _
Orientation = xlDataField
Range("A5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields("Name1"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields("Name1")
.AutoSort xlDescending, "Somme DUE"
.AutoShow xlAutomatic, xlTop, 30, "Somme DUE"
End With
ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotSelect "", _
xlDataAndLabel
ActiveSheet.PivotTables("Tableau croisé dynamique12").Format xlReport4
Columns("B:B").Select