LANCEZ UNE TCD GRACE A UNE MACRO

[steve]

La macro ne fontionne pas elle bloque des le debut

merci pour votre aide



ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ERIC!R1C1:R368C8").CreatePivotTable TableDestination:=Range("A400"), _
TableName:="Tableau croisé dynamique2"
ActiveSheet.PivotTables("Tableau croisé dynamique2").SmallGrid = False
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("mois")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("client")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("motif")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("date")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"heures nor")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"heures sup")
.Orientation = xlDataField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"heures sup 2")
.Orientation = xlDataField
.Position = 3
End With
Range("C400").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Données" _
)
.Orientation = xlColumnField
.Position = 1
End With
Range("C401").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"NB heures nor").Function = xlSum
Range("D401").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"NB heures sup").Function = xlSum
Range("E401").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"NB heures sup 2").Function = xlSum
Range("D404").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("client"). _
CurrentPage = "Abgrall Bernard"
End Sub