VBA pour créer un TCD sur powerpivot

Salut,

J'utilise le code ci-dessous pour créer un TCD "classique".

Code:

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

ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _ ActiveWorkbook.Connections("PowerPivot Data"), Version:=xlPivotTableVersion14 _ ).CreatePivotTable TableDestination:="Feuil4!R3C1", TableName:= _ "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion14