[Excel] Draaitabelgegevens vernieuwen bij openen werkmap*

[Chandler479]

Ik heb een Excel sheet met hierin een draaitabel die ik dagelijks ververs. Ik wil deze handmatige actie vervangen voor een stukje code. Inmiddels ben ik wel zover dat ik de tabel automatisch kan vernieuwen wanneer ik het tabblad activeer met deze code:

Visual Basic:

Option Explicit
Private Sub Worksheet_Activate()

    Dim myPT As PivotTable

    For Each myPT In Me.PivotTables
        myPT.RefreshTable
    Next myPT

End Sub 

Ik dacht dit aan te passen naar een auto refresh bij het openen van de sheet door

Visual Basic:

Private Sub Worksheet_Activate()

te vervangen voor

Visual Basic:

Private Sub Workbook_Open()

Helaas werkt dit niet, ten eerste de vraag waarom niet en ten tweede hoe wel?

[Lustucru]

Je hebt gewoon de naam van de procedure veranderd? Dat zal niet werken idd. Workbook code moet in het workbook object, en vervolgens zul je 'me.' moeten vervangen door een verwijzing naar het worksheet.