Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

parazar

XLDnaute Nouveau
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

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

Re

Exemple de code:

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
 

MJ13

XLDnaute Barbatruc
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.
 

MJ13

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

Re, Bonjour Chris

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

Pièces jointes

  • TCDActualise10Secondes.xlsm
    29.7 KB · Affichages: 30

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…