Problème rafraichissement TCD

[anthonygg]

Bonjour,

J'ai un problème avec mon TCD.
Quand je clique droit dessus et fait rafraichir : tout se passe bien.

Cependant quand j'enregistre ma macro, j'ai un message d'erreur : "Run time error 1004" object definite error :

Sub Macro1()
Sheets("TOP 4").Select
ActiveWorkbook.RefreshAll
End Sub

Pareil si j'utilise :
ActiveSheet.PivotTables("tcd2").PivotCache.Refresh

Comment ça se fait que je puisse rafraichir mon tableau manuellement, et que si j'enregistre ma macro automatiquement puis que je l'execute ça me marque un message d'erreur ?!
Je ne comprend pas comment c'est possible.


Merci,

 

[Pierrot93]

Re : Problème rafraichissement TCD

Bonjour,

où est placé ton code ? les 2 lignes avec les "select" ne me semblent pas nécessaires...

bon après midi
à+

 

[anthonygg]

Re : Problème rafraichissement TCD

Je fais un graphique normal en selectionnant les 4 premières lignes d'un TCD.
Qui représente les 4 premières cause de pertes d'argent par semaine dans l'ordre.
Mon but est que quand je modifie les numéros de semaine, mon graphique se mette à jour automatiquement.
Cependant le TCD ne se rafraichit pas tout seul. Il faut le faire manuellement car en VBA cela me met une erreur.

Je pense que c'est à cause du graphique que ça bug.


PS : Mes données sont dans une autre feuille, puis je fais un tableau cd avec celles ci pour les avoir dans l'ordre, puis je fait mon graphique.

 

[Pierrot93]

Re : Problème rafraichissement TCD

Re,

tu n'as pas répondu à ma question, où est placé le code ? dans un module standard ou de feuille ?

 

[anthonygg]

Re : Problème rafraichissement TCD

Dans un module enregistré automatiquement par Excel quand on appuie sur le bouton enregristrer.

 

[Pierrot93]

Re : Problème rafraichissement TCD

Re,

essaye ceci, à placer dans le module de la feuille où se trouve les données, click droit sur l'onglet => visualiser le code et tu colles :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("NomFeuilleDuTCD").PivotTables(1).RefreshTable
End Sub

 

[ERIC S]

Re : Problème rafraichissement TCD

Bonjour

on peut aussi peut-être effectuer le refresh en quittant la feuille donnée ou en activant la feuille graphique

c'est pas grand chose mais plutôt que de le faire à chaque changement ....

 

[Pierrot93]

Re : Problème rafraichissement TCD

Re,
Bonjour Eric

on peut aussi peut-être effectuer le refresh en quittant la feuille donnée ou en activant la feuille graphique

c'est pas grand chose mais plutôt que de le faire à chaque changement ....

oui tu as entièrement raison...

 

[anthonygg]

Re : Problème rafraichissement TCD

Ca ne marche pas du tout.
J'ai essayé ta méthode avec ActiveWorkbook.RefreshAll et cela fait bugger Excel sans pour autant rafraichir mon graphe x)

 

[Pierrot93]

Re : Problème rafraichissement TCD

Re,

bah... mets un tout petit fichier en plièce jointe que l'on puisse reproduire le cas...

 

[anthonygg]

Re : Problème rafraichissement TCD

Finnalement j'ai recommencé mon TCD, et

ActiveSheet.PivotTables("tcd2").PivotCache.Refresh

semble marcher ... Je ne sais pas du tout pourquoi ...

Ca ne me rassure pas du tout sur l'utilisation des TCD ...