Astuces Excel
  1. Astuces Excel
  3. Refresh pivots apparaissent apparemment erreur
Intereting Posts
Alignez la colonne en double dans Excel en conservant les valeurs présentes dans la colonne suivante VBA – représentant des données hiérarchiques dans Excel Obtenir un nom de feuille de calcul à l'aide de Excel VBA Slow nested 'for' loop pour lire des objects Excel Excel Pivot Chart Help – Tirer les noms qui ont consortingbué au count (VBA?) Utilisation de SQL pour interroger une feuille de calcul Excel sans ligne d'en-tête Essayer de colorier une colonne entière de cellules dans une feuille de calcul Excel en utilisant NPOI Refresh pivots apparaissent apparemment erreur Puis-je définir une image sur * Not * Auto-Resize? Manipulation de string Excel pour vérifier la cohérence des données Répéter dynamicment la list numérotée dans Excel Dissortingbuer des nombres annuels pendant des mois de façon exponentielle Comment append une valeur particulière au début de chaque ligne d'une feuille Excel Formule MAD pour excel Sélection de colonnes ayant des valeurs dans Excel Macro (object de plage dans VBA)

Refresh pivots apparaissent apparemment erreur

Voici mon code: 

Sub Atualiza_pivots() ActiveWorkbook.RefreshAll End Sub

Je fais un code simple qui rafraîchit tous les pivots dans le classur, mais si certains pivots se rafraîchissent, il ne me paraît pas, alors je ne sais pas quand il y a une erreur. J'essaie de créer un autre code, mais il ne semble pas apparaître. 

 Sub Atualiza_pivots() On Error GoTo Err ActiveWorkbook.RefreshAll Exit Sub Err: MsgBox "Há pivots com erro, verifique." End Sub

Je vous remercie.

La méthode RefreshAll ne fonctionne que si BackgroundQuery est défini sur True, essayez de faire une boucle dans chaque table et l'actualiser manuellement: 

 Sub Refresher() Dim wks As Worksheet Dim pvt As PivotTable For Each wks In Worksheets For Each pvt In wks.PivotTables If pvt.PivotCache.BackgroundQuery = False Then pvt.PivotCache.BackgroundQuery = True pvt.RefreshTable pvt.PivotCache.BackgroundQuery = False Else pvt.RefreshTable End If Next pvt Next wks End Sub

Thx pour l'aide D_Zab 

 Sub Atualiza_pivots() Dim wks As Worksheet Dim pvt As PivotTable For Each wks In Worksheets For Each pvt In wks.PivotTables On Error GoTo Err pvt.PivotCache.Refresh Next pvt Next wks Exit Sub Err: MsgBox pvt & " com erro." End Sub