Discussion :

[kimai81]

Bonjour,
une question toute bête mais pas je suis encore trop néophyte pour y répondre par moi même.

Comment faire pour mettre à jour (en cliquant sur un bouton de commande), tous les tableaux croisés dynamique d'un classeur entier.

A noter que le classeur en question peut avoir jusqu'à 50 bases de données qui alimentent autant de TCD.

Anika

[Abed_H]

Bonjour
pour Mettre à jour un TCD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
         ThisWorkbook.RefreshAll
End Sub

Abed_H

[kimai81]

Je dois être trop novice, car je n'arrive pas à faire marcher cette macro.

Une bonne âme pourrait-elle me préciser les choses?

Anika

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test()
Dim TCD As PivotTable
     For Each TCD In Worksheets("Sheet1").PivotTables
          TCD.RefreshTable
     Next
End Sub

Comme je n'ai pas de TCD sous la main, peux-tu tester pour moi ?

[Abed_H]

Bonjour Anika
Dans ce cas il faut ouvrir l'environnement de programmation (Alt-F11).
Ensuite tu fais DblClic sur l'icone de la feuille Feuil1 Par Exemple puis coller ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
         ThisWorkbook.RefreshAll
End Sub

Si vous ne connaissez pas l'editeur vba, je vous recommande la lecture
de ceci
http://silkyroad.developpez.com/VBA/DebuterMacros/
Cordialement Abed_H

[Abed_H]

Bonjour ouskel'n'or

Dans ce cas, F9 devrait fonctionner, non ?

Je n'ai pas de TCD sous la main comme vous avez dis pour tester F9 et
d'après l'aide Cette méthode (ThisWorkbook.RefreshAll) actualise toutes les plages de données externes et les rapports de tableau croisé dynamique du classeur spécifié.
Bonne journée.

Abed_H

[kimai81]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test()
Dim TCD As PivotTable
     For Each TCD In Worksheets("Sheet1").PivotTables
          TCD.RefreshTable
     Next
End Sub

Comme je n'ai pas de TCD sous la main, peux-tu tester pour moi ?

Non je n'arrive pas à le faire marcher.
Dois-je spécifier le nom de mon onglet à la place de sheet1?

Merci pour toutes vos réponses

Je connais le mécanisme de Alt+F11.
La macro apparaît bien quand j'appuie sur Alt+F8

Je la lance sans problème mais les TCD ne s'actualisent pas.

Croyez vous que ça puisse avoir un rapport avec le nom des onglets?

Ca doit vraiment être une erreur ridicule que je fais

Anika

[Abed_H]

Non je n'arrive pas à le faire marcher.
Dois-je spécifier le nom de mon onglet à la place de sheet1?

bien sûr, vous devrez spécifier le nom de ton onglet à la place de sheet1

[ouskel'n'or]

Tu devrais tester le code de Abed_H, il est préférable si tu veux mettre à jour tous les tcd de ton classeur.
Nonne nuit

[kimai81]

bien sûr, vous devrez spécifier le nom de ton onglet à la place de sheet1

Ah ok merci je commence à y voir plus clair.
Mais une dernière question, j'ai environ 50 onglets avec chacun un TCD, je fais comment? je nomme les 50 onglets dans le code?

[Abed_H]

Bonjour Anika
peut être que tu dois boucler sur l'ensemble des feuilles, voici le code à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
Dim TCD As PivotTable
  For i = 1 To Sheets.Count
     For Each TCD In Worksheets(i).PivotTables
          TCD.RefreshTable
     Next
 Next i
End Sub

Bonne soirée

Abed_H