problem using VBA filter in Pivot tables

[wassita]

Hello!
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I am using excel 2007 and I have problems to apply a filter to a pivotfield. I am trying the following:



<o></o>
<o></o>
ActiveSheet.PivotTables(1).PivotFields("Branch").PivotFilters.Add Type:=xlValueEquals, Value1:=2


<o></o>
<o></o>
It generates a run time error '1004' saying it is not possible to get the property pivottables from class worksheet.

<o></o>
<o></o>
My real goal is to use an array to specify more than one value to be used in the filter. It would be something like this:



<o></o>
<o></o>
<o></o>
ActiveSheet.PivotTables(1).PivotFields("Branch").PivotFilters.Add Type:=xlValueEquals, Value1:= array(2,4,15,9)

<o></o>
<o></o>
I really thank any help I get to solve this problem. <o></o>

 

[vibresson]

Thank's a lot.

I want to set a filter in a pivot table.
I try to use PivotFilters from 8 days and any scripts works :

Dim Var_Filter_Ping_S3 As PivotField
Set Var_Filter_Ping_S3 = Feuil29.PivotTables(1).PivotFields("File")
Var_Filter_Ping_S3.ClearAllFilters
Var_Filter_Ping_S3.PivotFilters.Add xlValueEquals, , "A"

Your metod wors fine !!
Happy day