Salut,

J'utilise le code ci-dessous pour créer un TCD "classique".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R4C3", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feuil1!R5C5", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("Feuil1").Select
    Cells(5, 5).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("AA")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("BB")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("CC"), "Somme de CC", _
        xlSum
End Sub
Est-ce que quelqu'un pourrait me dire ce que je dois comme source pour prendre mes données dans un classeur powerpivot?
Ça fait une semaine que je cherche et je n'ai rien trouvé.

Merci de votre aide,
Jean