Discussion :

[jpclabaux]

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

[jpclabaux]

J'ai un premier élément de réponse mais qui ne me satisfait pas pleinement.
Le code suivant fonctionne si le powerpivot est dans le classeur dans lequel on veut faire le tcd:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si je vais chercher un powerpivot exterieur j'ai le message d'erreur suivant:
"Moteur Analysis Services incorporé:Impossible de charger les données powerpivot incorporées."
Ça semble contradictoire à ce que j'ai lu par ailleurs. Je continu mes investigations.
Si quelqu'un a une idée, je suis preneur.