1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Dim wSheet As Worksheet, tcd As PivotTable
Dim nbPivotTables As Integer
nbPivotTables = 0
'Boucle sur toutes les feuilles du fichier
For Each wSheet In Worksheets
' Actualisation des tableaux dynamiques contenus dans la feuille
For Each tcd In wSheet.PivotTables
tcd.RefreshTable
nbPivotTables = nbPivotTables + 1
Next tcd
Next wSheet
If nbPivotTables = 0 Then
MsgBox ("Pas de tableau dynamique dans ce fichier")
Else
If nbPivotTables = 1 Then
MsgBox ("Actualisation du tableau dynamique effectuée")
Else
MsgBox "Actualisation des " & nbPivotTables & " tableaux dynamiques effectuée"
End If
End If |
Partager