Bonjour, j'ai un problème avec l'utilisation de la fonction GetPivotData.
Il me renvoie l'erreur 1004 : "Application defined or object-defined error" au niveau de ma ligne Set ResultPivot=...

Ce code fonctionnait jusqu'à aujourdui...:/
Les paramètres de ma fonction ainsi que mes variables me semble bien énoncés, je ne vois pas ce qui ne va pas..

Voici mon code :

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
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click() 
 
Dim ws As Worksheet 
Dim StartingHour As Integer 
Dim EndingHour As Integer 
Dim IntervalTime As String 
Dim DayEvent As Integer 
Dim ResultPivot As Range 
Dim TimeSpent As Integer 
Dim pvt As PivotTable 
 
 
DayEvent = 1 
StartingHour = 11 
EndingHour = 14 
 
IntervalTime = Format(StartingHour, "00") & "00/" & Format(EndingHour, "00") & "00" 
 
 
Set ws = Worksheets("Pivot") 
Set pvt = ws.PivotTables(1) 
'ws.EnablePivotTable = True 
Set ResultPivot = pvt.GetPivotData("Time spent on the release", "Frequency", DayEvent, "Time of release", IntervalTime) 
 
 
TimeSpent = ResultPivot.Value 
MsgBox TimeSpent 
 
End Sub

Merci d'avance pour votre aide et vos propositions...