Actualisation des TCD lorsque feuille active

[chris6999]

Bonjour

J esouhaite lancer l'actualisation automatique de mes tableaux croisés dynamiques lorsque la feuille sur laquelle ils sont positinnés est active

J'ai essayé ça... mais cça ne marche pas.
Une idée ? Peut-être incomaptibel avec excel 2002?

Merci d'avance pour votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet = "Suivi statistiques" Then

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh

End If
End Sub

 

[Pierrot93]

Re : Actualisation des TCD lorsque feuille active

Bonjour,

essaye ceci, dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

bon après midi
@+

 

[chris6999]

RESOLU Actualisation des TCD lorsque feuille active

Merci beaucoup Pierrot cela fonctionne sans pb

Bon après midi