greatdevil | Bonjour,
je m'excuse d'avance si le sujet a déjà été traité ( mais cela m'étonnerais, vu que cela fait 3 jours que je cherche en vain un peu partout).
voilà.
j'aimerais développer ( un bien grand mot) une macro qui à partir d'une base de donnée constituée sur un fichier excel ( je précise xl2003) génèrerait 5 tableaux Croisés Dynamiques sur dans un autre fichier et tous les 5 sur la même feuille
( ces tableaux ne font que 2 lignes donc pas de soucis de place).
j'ai utilisé l'enregistreur de macro mais impossible relancer ce qui est enregistré.
je fait un copié/collé de "mon" malheureux code.
si vous pouviez me donner un coup de main ce serait royal
Merci d'avance
---------
Code :
- Workbooks.Add
- ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
- "[macro_0405.xls]controle!R1C1:R828C20" ).CreatePivotTable TableDestination:= _
- "", TableName:="Tableau croisé dynamique1", _
- DefaultVersion:=xlPivotTableVersion10
- ActiveSheet.PivotTables("Tableau croisé dynamique1" ).ColumnGrand = False
- ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddFields RowFields:= _
- "contrôle_famille", ColumnFields:="Créateur"
- With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("ID" )
- .Orientation = xlDataField
- .Caption = "Nombre de ID"
- .Function = xlCount
- End With
- With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
- "contrôle_famille" )
- .PivotItems("ok" ).Visible = False
- .PivotItems("#N/A" ).Visible = False
- End With
- Range("A8" ).Select
- ActiveWorkbook.Worksheets("Classeur2" ).PivotTables("Tableau croisé dynamique1" ). _
- PivotCache.CreatePivotTable TableDestination:="[Classeur2]Feuil1!R8C1", _
- TableName:="Tableau croisé dynamique4", DefaultVersion:= _
- xlPivotTableVersion10
- ActiveSheet.PivotTables("Tableau croisé dynamique4" ).ColumnGrand = False
- ActiveSheet.PivotTables("Tableau croisé dynamique4" ).AddFields RowFields:= _
- "contrôle_thême", ColumnFields:="Créateur"
- With ActiveSheet.PivotTables("Tableau croisé dynamique4" ).PivotFields("ID" )
- .Orientation = xlDataField
- .Caption = "Nombre de ID"
- .Function = xlCount
- End With
- With ActiveSheet.PivotTables("Tableau croisé dynamique4" ).PivotFields( _
- "contrôle_thême" )
- .PivotItems("ok" ).Visible = False
- .PivotItems("#N/A" ).Visible = False
- End With
- Range("A13" ).Select
- ActiveWorkbook.Worksheets("Feuil1" ).PivotTables("Tableau croisé dynamique1" ). _
- PivotCache.CreatePivotTable TableDestination:="[Classeur2]Feuil1!R13C1", _
- TableName:="Tableau croisé dynamique5", DefaultVersion:= _
- xlPivotTableVersion10
- ActiveSheet.PivotTables("Tableau croisé dynamique5" ).ColumnGrand = False
- ActiveSheet.PivotTables("Tableau croisé dynamique5" ).AddFields RowFields:= _
- "contrôle_sous-thême", ColumnFields:="Créateur"
- With ActiveSheet.PivotTables("Tableau croisé dynamique5" ).PivotFields("ID" )
- .Orientation = xlDataField
- .Caption = "Nombre de ID"
- .Function = xlCount
- End With
- Range("A15" ).Select
- With ActiveSheet.PivotTables("Tableau croisé dynamique5" ).PivotFields( _
- "contrôle_sous-thême" )
- .PivotItems("ok" ).Visible = False
- .PivotItems("#N/A" ).Visible = False
- End With
- Range("A18" ).Select
- ActiveWorkbook.Worksheets("Feuil1" ).PivotTables("Tableau croisé dynamique3" ). _
- PivotCache.CreatePivotTable TableDestination:="[Classeur2]Feuil1!R18C1", _
- TableName:="Tableau croisé dynamique6", DefaultVersion:= _
- xlPivotTableVersion10
- ActiveSheet.PivotTables("Tableau croisé dynamique6" ).ColumnGrand = False
- ActiveSheet.PivotTables("Tableau croisé dynamique6" ).AddFields RowFields:= _
- "contrôle_codefin", ColumnFields:="Créateur"
- With ActiveSheet.PivotTables("Tableau croisé dynamique6" ).PivotFields("ID" )
- .Orientation = xlDataField
- .Caption = "Nombre de ID"
- .Function = xlCount
- End With
- Range("A21" ).Select
- With ActiveSheet.PivotTables("Tableau croisé dynamique6" ).PivotFields( _
- "contrôle_codefin" )
- .PivotItems("ok" ).Visible = False
- .PivotItems("#N/A" ).Visible = False
- End With
- Range("A23" ).Select
- ActiveWorkbook.Worksheets("Feuil1" ).PivotTables("Tableau croisé dynamique3" ). _
- PivotCache.CreatePivotTable TableDestination:="[Classeur2]Feuil1!R23C1", _
- TableName:="Tableau croisé dynamique7", DefaultVersion:= _
- xlPivotTableVersion10
- ActiveSheet.PivotTables("Tableau croisé dynamique7" ).ColumnGrand = False
- ActiveSheet.PivotTables("Tableau croisé dynamique7" ).AddFields RowFields:= _
- "contrôle_cause", ColumnFields:="Créateur"
- With ActiveSheet.PivotTables("Tableau croisé dynamique7" ).PivotFields("ID" )
- .Orientation = xlDataField
- .Caption = "Nombre de ID"
- .Function = xlCount
- End With
- With ActiveSheet.PivotTables("Tableau croisé dynamique7" ).PivotFields( _
- "contrôle_cause" )
- .PivotItems("ok" ).Visible = False
- .PivotItems("#N/A" ).Visible = False
- End With
- Range("A28" ).Select
- ActiveWorkbook.Worksheets("Feuil1" ).PivotTables("Tableau croisé dynamique3" ). _
- PivotCache.CreatePivotTable TableDestination:="[Classeur2]Feuil1!R28C1", _
- TableName:="Tableau croisé dynamique8", DefaultVersion:= _
- xlPivotTableVersion10
- ActiveSheet.PivotTables("Tableau croisé dynamique8" ).ColumnGrand = False
- ActiveSheet.PivotTables("Tableau croisé dynamique8" ).AddFields RowFields:= _
- "contrôle_sous-cause", ColumnFields:="Créateur"
- With ActiveSheet.PivotTables("Tableau croisé dynamique8" ).PivotFields("ID" )
- .Orientation = xlDataField
- .Caption = "Nombre de ID"
- .Function = xlCount
- End With
- With ActiveSheet.PivotTables("Tableau croisé dynamique8" ).PivotFields( _
- "contrôle_sous-cause" )
- .PivotItems("ok" ).Visible = False
- .PivotItems("#N/A" ).Visible = False
- End With
- Range("E1" ).Select
- ActiveCell.FormulaR1C1 = "Rapports de Tableaux croisés dynamique"
- Range("D36" ).Select
- End Sub
|
Message édité par greatdevil le 14-05-2010 à 10:41:15
---------------
Si tu te tapes la tête contre une cruche et que ça sonne creux, n'en déduit pas forcément que c'est la cruche qui est vide...
|
