VBA - Attente de rafraichissement et rafraichissement Power Pivot

Bonjour,

A des fins d'optimisation d'un fichier Excel, je souhaite intégré des rafraichissement automatique en VBA pour les tables PowerQuery. A ce jour la macro fonctionne mais l'utilisateur peux continuer alors que le rafraichissement n'a pas encore finit : il faudrait mettre un temps avant de pouvoir faire quelque chose d'autre car à terme j'aimerai exécuté cette action de rafraichissement 2 fois (pour les tableaux croisé dynamique) mais en attendant bien que le 1er rafraichissement est fini.

Est-il possible de rafraichir automatiquement PowerPivot grâce aux VBA ?

Cordialement

Oui, par exemple comme ça ;

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Sheet1").PivotTables("PivotTable1").PivotCache.Refresh
End Sub

Après ça dépend si le TCD est lié à une autre feuille ou pas, s'il y a d'autres choses sur cette feuille ou pas, ...

Ca ressemble plus a un dashboard avec au moins 10 tdc, après si ton code fonctionne pour 1, ca devrai fonctionner pour tous.

Je test et fait un retour

Alors tu pourrais avoir besoin de cette variante pour éviter un bug ;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Application.ActiveSheet.ListObjects(1).DataBodyRange) Is Nothing Then
        Exit Sub
    Else
        ActiveSheet.PivotTables(1).PivotCache.Refresh
    End If
End Sub

Et tu changes le n° du TCD si nécessaire (ou tu mets son nom).