Pivot automatisch refreshen via Dropbox

[abreeman]

Goedemorgen,

Ik weet niet helemaal of deze vraag onder de goede rubriek geplaatst wordt, in ieder geval heeft het van doen met een Excelpivot.

Wij gebruiken een excel-pivot voor openstaande debiteuren. Deze zijn gecategoriseerd per accountmanager etc. Iedere accountmanager wil graag zijn eigen format (klanten) zien zodat er verschillende formats van dezelfde pivot in omloop zijn.

De pivot is afkomstig van de database van het boekhoudpakket. Deze is niet benaderbaar voor medewerkers, behalve die van finance.

Omdat projectleiders, accountmanagers, managers etc. 'realtime' inzicht willen hebben in de openstaande posten per account, denken wij aan een Dropbox op de niet-benaderbare server en deze te delen met de respectievelijke verantwoordelijken. Echter, zij kunnen dan niet refreshen (waarschijnlijk).

De vraag is: kan bijvoorbeeld via een macro ingesteld worden dat de pivot bijvoorbeeld ieder uur refresht?

Groet,
Arie

 

[spaarie]

Plak deze code in een module van het bestand

Sub refresh()
Application.OnTime Now + TimeValue("00:01:00"), "updaten" 'geef hier de interval aan en welke sub je wilt uitvoeren
End Sub
Sub updaten()
With Sheets("Blad1") 'hier je sheetnaam met de draaitabel
.PivotTables("PivotTable1").PivotCache.refresh 'geef de naam van de draaitabel
.PivotTables("PivotTable2").PivotCache.refresh 'geef eventueel een 2e draaitabel aan
End With
End Sub

Weet niet of het gaat werken i.v.m. de rechten, maar dan zal ie vast wel een melding geven en die zien we wel hier tegemoet.
Zou wel de interval wat lager zetten, anders zit je steeds een uur te wachten

 

[cow18]

grapje : al eens geprobeerd ? dubbelklik eens op het eindtotaal rechtsbeneden van je draaitabel en je krijgt de detailgegevens rechtstreeks uit je brongegevens in een nieuwe werkblad !
Dat zal je wel aan niemand mogen vertellen zeker ?
Anders moet je iedereen een kopie van de draaitabel geven met enkel de waarden, dus ahw. kopieren en plakken>speciaal>waarden.