Bjr,
 
je fais des petits pg sous access en vba.
Pour l un d eux, j exporte des donnees sous excel. j aimerais a partir de ces donnees creer un tableau croise dynamique dans excel. Mais je arrive pas a le creer en vba depuis access. Quelqu un peut il m aider ?
 
Merci
 
Fabrice
 
j utilise ce code la pour essayer de m en sortir. j ai essaye multiples variantes mais ca ne marche pas
 
 Set objpivotcache = wbk.PivotCaches
     
    With objpivotcache
    .Add SourceType:=xlDatabase, SourceData:=Sheets(Q_OrderList).Range("A2:J" & ligne - 1)
    End With
     
    With objpivotcache
    .CreatePivotTable TableDestination:=wbk.Sheets(2).Range("A3" ), _
        TableName:="Performance"
    End With
     
    With wbk.Sheets(2).PivotTables("Performance" )
    .SmallGrid = False
    With .PivotFields("type of label" )
        .Orientation = xlRowField
        .Position = 1
    End With
    With .PivotFields("qty" )
        .Orientation = xlDataField
        .Position = 1
    End With
    End With