Bonjour,

Je ne comprends pas mon erreur. Je souhaite executer des pivots sur des feuilles differentes.

Il marque "Run-time error 424" Object required ....

Merci de votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
     WsName = Sheets("Table").Cells(4 + i, 25)
     Sheets(WsName).Select
''''''''''''''''''''''''''
''' Active PIvot table and classify the department per order
 
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Database!R1C2:R1048576C23", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=WsName.Range("A1"), TableName:="PivotTable2", DefaultVersion _
        :=xlPivotTableVersion12
Cdlt,