Probleme GetPivotData

Signaler
Messages postés
23
Date d'inscription
mercredi 14 octobre 2009
Statut
Membre
Dernière intervention
24 juillet 2012
-
Bonjour a tous,

J'ai probléme concernant l'utilisation de la fonction GetPivotDta.
Ce code ci dessus me retourne l'erreur 1004 "Application defined or object defined error" au niveau de ma derniere ligne ResultPivot...

Voila, c'est peut etre simple ou juste mauvaise déclaration de variable mais pas moyen de trouver....

Private Sub CommandButton1_Click()

Dim ws As Worksheet
Dim wb As Workbook

Dim StartingHour As Byte
Dim EndingHour As Byte
Dim DayEvent As Integer
Dim IntervalTime As String

Dim ResultPivot As Range
Dim TimeSpent As Integer
Dim pvt As PivotTable

ChDir "D:\Documents and Settings\39518\Desktop\draft\v1"

Windows("Release_v1.xls").Activate
Set wb = Workbooks("Release_v1.xls")
Set ws = Worksheets("Pivot")
ws.Select

DayEvent = 1

'entre deux, codes permettant de definir les variables StartingHour et EndingHour

IntervalTime = CStr(StartingHour * 100) & "/" & CStr(EndingHour * 100)

Windows("Release_v1.xls").Activate
Set ws = Worksheets("Pivot")
ws.Select

'declare the pivot
Set pvt = ws.PivotTables(1)
'get the data from the pivot in function of variables
ResultPivot = pvt.GetPivotData("Sum of Time spent on the release", A4, "Frequency", "DayEvent", "Time of release", "IntervalTime")


Merci d'avance pour vos réponse
A voir également: