' Macro15 Macro
' Macro enregistrée le 29/01/2013 par mbri
'SourceData: Définit la source de données dans le TCD.
'[Test_export_excel_pour_indicate!A1].CurrentRegion.Address(, , xlR1C1, True) permet d'étendre
'automatiquement la sélection de façon à y inclure toute la zone en cours
'à partir de la cellule A1, dans la Test_export_excel_pour_indicate.
'TableDestination: Définit la position du TCD (cellule A5 dans la Feuille_de_Calcul).
'TableName: Définit le nom du nouveau TCD. ("Mon TCD")
Application.Run "Indicateur.xls!Macro13"
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Test_export_excel_pour_indicate!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Feuille_de_Calcul!R5C1", _
TableName:="PARETO"
ActiveSheet.[Feuille_de_Calcul]
ActiveSheet.PivotTables("PARETO").AddDataField ActiveSheet.PivotTables("PARETO" _
).PivotFields("Durée"), "Nombre de Durée", xlCount
With ActiveSheet.PivotTables("PARETO").PivotFields("STA_Nom_de_la_Station")
.Orientation = xlRowField
.Position = 1
End With
End Sub