[HELP] - Actualisation d'un TCD toutes les 10s

[parazar]

Bonjour,

N'étant pas doué pour les macros VBA, je fais appel à votre aide.

Mon problème:

Je cherche une macro me permettant d'actualiser un TCD (en arrière plan) toute les x secondes.

Merci !

Chris, alias Parazar

 

[MJ13]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Bonjour Parazar

Normalment on utilise le refresh sur un TCD. avex Application.ontime, ça devrait le faire.

 

[MJ13]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Re

Exemple de code:

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

 

[parazar]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Bonjour Parazar

Normalment on utilise le refresh sur un TCD. avex Application.ontime, ça devrait le faire.

Désole, je suis débutant.
Peux tu développer merci ?

 

[MJ13]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Re

Oui, voir le post à 12H41.

Mettre le code dans un module standard (Alt+F11) puis lancer la macro (Alt+F8) MAJ_TCD.

 

[parazar]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Re

Oui, voir le post à 12H41.

Mettre le code dans un module standard (Alt+F11) puis lancer la macro (Alt+F8) MAJ_TCD.

Cela me renvoie une erreur 1004 "Erreur déninie par l'application ou par l'objet" sur la ligne ActiveSheet.PivotTables(1).PivotCache.Refresh
:-(

 

[chris]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Bonjour
Salut à MJ13 🙂

Parazar, es-tu bien positionné sur la feuille contenant le TCD quand tu lances la macro ?

 

[parazar]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Il n'y a qu'une seule feuille dans mon classeur.

 

[MJ13]

Re : [HELP] - Actualisation d'un TCD toutes les 10s

Re, Bonjour Chris

Tu peux tester ce fichier pour voir déjà, si cela fonctionne.