Excel automatisch gegevens vernieuwen bij openen draaitabel

[Anoniem: 144713]

Ik heb een probleempje met het automatisch vernieuwen van de gegevens van een draaitabel. Deze draaitabel open ik vanuit Access 97 in Excel. Ik wil het zo hebben dat wanneer ik de draaitabel open automatisch de gegevens vernieuwd worden, dit krijg ik niet voor elkaar. Ik gebruik de volgende code:

Private Sub Workbook_Open()
ActiveSheet.Pivottables("Draaitabel1").RefreshTable
End Sub

Ik kreeg dan de volgende foutmelding:

"Methode Refreshtable van klasse PivotTable is mislukt"

Kan iemand mij uitleggen wat ik fout doe?

Ps. de code werkt wel als ik hem aan een macro hang :

Alvast bedankt

[onkl]

Waarschijnlijk is er, op het moment dat Workbook_Open draait nog geen aanwijsbaar ACTIEF werkblad.
Probeer iets als

Visual Basic:

ActiveWorkbook.Worksheets("Naamvansheetmetdraaitabel").Pivottables("Draaitabel1").RefreshTable

[Anoniem: 144713]

Onkl,

Als ik de code die jij gegeven hebt er neer zet krijg ik de foutmelding:

"Objectvariabele of blokvariabele With is niet ingesteld"

Ik ben niet zo thuis in visual basic, dus weet niet wat dit betekend.

[onkl]

Probeer even de volgende acties:
[justchecking]je hebt "Naamvansheetmetdraaitabel" toch wel aangepast? [/]
Probeer, in volgorde:
Msgbox Activeworkbook.name
en, als die werkt:
Msgbox ActiveWorkbook.Worksheets("Naamvansheetmetdraaitabel").Name

[Anoniem: 144713]

Wat bedoel je precies met als die werkt?
Ik heb alle twee de codes geprobeerd en hij geeft geen foutmelding, maar ook geen msgbox ofzo.
Ik heb wel de naam van de sheet aangepast.

[Anoniem: 144713]

Sorry, had ik verkeerd gedaan.
Maar met de codes die je het laatst hebt gegeven krijg ik weer de foutmelding:

"Objectvariabele of blokvariabele with is niet ingesteld"

[Anoniem: 144713]

Ik heb het inmiddels opgelost met de code:

Private Sub Workbook_Activate()
ActiveSheet.PivotTables("Draaitabel1").RefreshTable
End Sub

Bedankt voor de reacties

[onkl]

Probeer even, voordat je content bent, of de draaitabel niet vernieuwd wordt iedere keer dat het bestand geactiveerd wordt. Dus: Open het bestand en open een ander excelbestand. Als je nu van de een naar de ander gaat, wordt denk ik je draaitabel ververst. Dat kan heel onhandig zijn (hangt ervan af hoe groot'ie is)

[Lustucru]

Als je toch je worksheet opent vanuit Access, waarom geef je dáár dan niet de opdracht om de draaitabel te verversen?

[onkl]

Tussendoor: Klik eens rechts op je draaitabel, kies draaitabelopties (Pivottable Options) en vink "Refresh on open" aan.
Best leuk programma eigenlijk dat Excel, je kan zo moeilijk doen als je wilt, maar het hoeft niet altijd.