Discussion :

[johanaquatique]

Bonsoir,
j'ai plusieurs tableaux "coisé dynamique" répartis dans un fichier.
J'aimerai trouver une astuce pour faire un bouton qui actualise tout en un clique même ceux sur les autres feuilles !
Est-ce que ce genre de chose est possible avec mon ami Excel ?
Merci pour votre aide

[johanaquatique]

wai bon suis-je bête, je n'ai qu'à faire une macro qui est l'action d'actualiser tous les TCD !!

Bon merci quand même , j'ai 96 lecture pour ce poste et pas de retour... donc je présume que personne sais comment je peux faire autrement

à bientôt

[rvtoulon]

bonjour,

wai bon suis-je bête, je n'ai qu'à faire une macro qui est l'action d'actualiser tous les TCD !!

Comment t'as deviné ?

Bref voici l'adaptation d'un code trouvé sur le net :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MAJ_TCD()
 
For Each sh In ThisWorkbook.Worksheets
 
   For Each pvt In sh.PivotTables
     pvt.RefreshTable
   Next pvt
 
Next sh
 
End Sub

[kingfadhel]

Bonjour, j'attire votre attention que ce code bloque au niveau de la ligne 6

Code :

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

pvt.RefreshTable

[jijie]

et ça de tête :

Code :

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

ActiveWorkbook.RefreshAll

[rvtoulon]

bonjour,
j'utilise personnellement ce code régulièrement et je n'ai aucun soucis.
dans quel contexte l'utilises-tu?
voici le code que j'utilise, c'est le même sauf que je déclare les variables on pourrait vérifier la présence d'un tcd dans la feuille pour eviter une erreur mais même si on ne le fait pas il fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim pvt As PivotTable
Dim sh As Worksheet
 
Application.ScreenUpdating = False
 
For Each sh In Worksheets
    'If sh.PivotTables.Count >= 1 Then
        For Each pvt In sh.PivotTables
            pvt.RefreshTable
        Next pvt
    'End If
Next sh
 
Application.ScreenUpdating = True

[Invité]

et ça de tête :

Code :

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

ActiveWorkbook.RefreshAll