Macros commande

Sub Macro2()
' Macro recorded 06.11.2005 by OEM
'
With ActiveSheet.PivotTables('PivotTable3')
        .PivotCache.Refresh
        With .PivotFields('DATE')
                .CurrentPage = .PivotItems(.PivotItems.Count).Name
        End With
End With

End Sub

Cliquez pour agrandir...

Sub Macro2()
Dim i As Byte
For i = 1 To ActiveSheet.PivotTables.Count
        With ActiveSheet.PivotTables(i)
                .PivotCache.Refresh
                With .PivotFields('DATE')
                                .CurrentPage = .PivotItems(.PivotItems.Count).Name
                End With
        End With
Next i
End Sub
Sub Bouton7_QuandClic()

Cliquez pour agrandir...