Bonjour,

J'utilise un TCD avec comme source un cube OLAP.

J'arrive à lire les données en utilisant la formule ci dessous dans une cellule:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 =LIREDONNEESTABCROISDYNAMIQUE("[Measures].[Nb appels répondus]";$B$6;"[Détail Demi-Heure].[Demi-Heure]";"[Détail Demi-Heure].[Demi-Heure].&[3]";"[Temps].[Jour]";"[Temps].[Jour].&[2014-10-03T00:00:00]")
J'ai utilisé l'enregistreur de macro qui me donne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
     ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""[Measures].[Nb appels répondus]"",R81C2,""[Détail Demi-Heure].[Demi-Heure]"",""[Détail Demi-Heure].[Demi-Heure].&[7]"",""[Temps].[Jour]"",""[Temps].[Jour].&[2014-06-16T00:00:00]"")"
Le pb est que dans ma cellule je veux la valeur est non pas la "fonction" Getpivotdata....

J'essaye donc d'utiliser en vba l'expression pivottables.getpivotdata mais sans succès :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim Ws As Worksheet, sh As Worksheet, I, J, K, C As Range, DDate
 
Set Ws = Sheets("YYY")
Set sh = Sheets("XXX")
 
DDate = Format(Date - 7, "yyyy-mm-dd") & "T00:00:00"
 
For I = 1 To 25
        sh.Cells(I, "D").Value = Ws.PivotTables("Tableau croisé dynamique4").GetPivotData("Nb appels répondus", "Demi-Heure", I, "Jour", DDate)
Next I
J'ai une erreur 1004 : erreur définie par l'application ou par l'objet.

tout aide serait la bienvenue :-)