Actualiser avant d'enregistrer et fermer un fichier en VBA

Bonjour les amis,

je souhaite rectifier mon code en VBA qui normalement me permet d'ouvrir un autre fichier excel calcule.xlsx l'actualiser par la suite le sauvegarder et le fermer, le code que j'ai est le suivant :

Sub Test()

Dim wb As Workbook

Dim ws As Worksheet

Set wb = Workbooks.Open("C:\Calcule.xlsx")

Set ws = wb.Worksheets(1)

wb.Save

wb.Close

End Sub

l'actualisation se fait automatiquement à l'ouverture du fichier calcule.xlsx par power query à partir d'un autre fichier le souci c'est que le code sauvegarde et ferme le fichier avant que celui-ci ne soit actualiser, donc il me faut le code qui me permet d'attendre la fin de l'actualisation et ensuite sauvegarder et fermer.

Merci d'avance

Bonjour Dewan52, bonjour le forum,

Peut-être simplement ajouter une pause ...

Sub Test()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("C:\Calcule.xlsx")
Set ws = wb.Worksheets(1)
Application.Wait Time + TimeSerial(0, 0, 5) ' 5 secondes
wb.Save
wb.Close
End Sub

Joseph

Merci Bcp mais ça bloque l'actualisation aussi, quand j'ouvre le fichier calcule.xlsx tout seul il actualise normalement mais avec la Macro il attend 5 secondes et se ferme sans actualiser

Bonjour,

Essaie ainsi :

Option Explicit

Sub Test()
Dim wb As Workbook, ws As Worksheet
    Set wb = Workbooks.Open("C:\Calcule.xlsx")
    With wb
        .RefreshAll
        .Save
        .Close
    End With
End Sub

Merci bcp mais ça ne passe pas