Public DateFin As Date
Sub MAJ_TCD()
DateFin = Now + TimeValue("00:00:10")
Application.OnTime DateFin, "MAJ"
End Sub
Sub MAJ()
'MsgBox "ok"
ActiveSheet.PivotTables(1).PivotCache.Refresh
MAJ_TCD
End Sub
Sub MAJ_TCD_Stop()
Application.OnTime EarliestTime:=DateFin, Procedure:="MAJ", Schedule:=False
End Sub
Bonjour Parazar
Normalment on utilise le refresh sur un TCD. avex Application.ontime, ça devrait le faire.
Re
Oui, voir le post à 12H41.
Mettre le code dans un module standard (Alt+F11) puis lancer la macro (Alt+F8) MAJ_TCD.