Erreur mise à jour TCD

Coucou !!!

J'ai un code super simple, mais qui refuse catégoriquement de fonctionner...

J'ai tout vérifié, le nom du TCD est correct...

Private Sub Worksheet_Activate()

'Mise à jour du TDC
ActiveSheet.PivotTables("TCD").PivotCache.Refresh

End Sub

ERREUR :

Erreur 1004 : Impossible de lire la propriété pivot tables de la classe Worksheet...

??? pourquoi impossible ? Qu'est ce que je fais de mal ?

Merci d'avance de votre généreuse aide !

Ton TCD s'appelle-t-il bien "TCD" ? Sinon, envoie ton fichier en gardant le TCD et le code pour analyse.

Oui oui, TCD...

Voilà le fichier, le tableau est sensé s'actualiser quand on arrive sur "exploitation" ...

Bizarre, après quelques tests, ça ne marche pas non plus chez moi.

Je ne sais pas d'où ça peut venir !

Hey !!!

Le pb venais du TCD lui même en fait !

(J'ai tellement l'habitude que ce soit mon code qui déconne aussi !)

Cela dit j'ai appris un nouveau morceau de code :

Private Sub Worksheet_Activate()

'Mise à jour du TDC
For nb = 1 To ActiveSheet.PivotTables.Count
    ActiveSheet.PivotTables(nb).PivotCache.Refresh
Next

End Sub

Il compte les TCD et les mets tous à jour !

(Rien à voir avec le pb mais utile ^^)

Merci à tous !

Pb résolu

Bonjour,

J'ai regardé le souci TCD. Deux choses que j'ai constatée :

1. La défintion de ton TCD fait appel à la formule Decaler qui mentionne #ref dans le premier paramètre. C'est à remplacer par --> Synthèse!$B$7 ou Synthèse!$A$7

2. si un seul TCD, on peut remplacer le code par celui ci-dessous

Private Sub Worksheet_Activate()
'Dan pour lisette le 09/07/10
Me.PivotTables("TCD").RefreshTable
End Sub 

Amicalement

Merci de ne pas oublier de cocher le V de couleur Vert pour cloturer le fil.