Discussion :

[Gamack]

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 :-)

[issoram]

Bonjour,

Il y a 2 erreurs dans la ligne de code utilisant la méthode GetPivotData :

1. La propriété .Cells(i,j) s'utilise avec 2 entiers en paramètres (erreur de ma part à ne pas prendre en compte, cf. messages ci-dessous)
2. La méthode GetPivotData renvoie une plage (objet Range) et non une valeur. Le compilateur comprend la syntaxe Plage = valeur sous-entendu Plage.Value = valeur mais dans l'autre sens (Plage1.Value=Plage2) je ne sais pas. Mieux vaut corriger, ne serait-ce que pour une question de cohérence du code)

Code :

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

1
2
sh.Cells(I, "D").Value = Ws.PivotTables("Tableau croisé dynamique4").GetPivotData("Nb appels répondus", "Demi-Heure", I, "Jour", DDate) ' 
sh.Cells(I, 4).Value = Ws.PivotTables("Tableau croisé dynamique4").GetPivotData("Nb appels répondus", "Demi-Heure", I, "Jour", DDate).Value  '

Essaie déjà avec ces modifications.

[Invité]

Salut,

Bien que je n'ai pas essayé, as-tu vérifié que ta fonction renvoie bien une et 1 seule cellule, car sinon, la propriété .Value d'un Range renvoi un tableau 2D.

A tester (sans garanti de succès):

Code :

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

1
2
3
4
 
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).Cells(1,1)
Next I

P.S.: Pour les colonnes, il est possible de passer une lettre dans .Cells().

[issoram]

Bonjour,

Autant pour moi pour la propriété .cells fonctionnant avec l'indice sous forme de lettre, j'ai appris quelque chose .
Le problème doit donc bien venir de l'affectation comme l'explique nouveau2.

Bonne journée