Actualisation du pivot Excel, enregistrement et fermeture dans le code Access VBA

Question

J'utilise le code suivant pour actualiser les tableaux croisés dynamiques Excel à partir d'une application Access. Quel est le meilleur moyen de sauvegarder et de fermer l'application Excel après l'actualisation des pivots? Lors de ma dernière tentative, le code essayait de sauvegarder et de fermer avant que les pivots se soient rafraichis.

Private Sub Command161_Click() 
    Dim objXL As Object, x 

    On Error Resume Next 
    Set objXL = CreateObject("Excel.Application") 
    With objXL.Application 
    .Visible = True 
    'Open the Workbook 
    .Workbooks.Open "myfilepath.xls" 
    'Refresh Pivots 
    x = .ActiveWorkbook.RefreshAll 
    End With  
    Set objXL = Nothing 
End Sub 

Answer 1

Définissez la propriété pivottable.pivotcache.backgroundquery sur False pour les mises à jour synchrones.