Actualiser avant d'enregistrer et fermer un fichier excel en VBA

[Dewan52]

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

 

[mécano41]

Bonjour,

Pas sûr, mais essaies : DoEvents avant wb.save ...

Cordialement

 

[Dewan52]

Merci mais ça n'actualise toujours pas

 

[mécano41]

Je suppose que tu as fait un : Application.Calculate quelque part avant le DoEvents et le Save.
Sinon, je ne sais pas...

Cordialement

 

[Dewan52]

non mais c'est une requête avec Power query qui actualise à l'ouverture du fichier et j'avais aussi tester avec Application.Calculate et avec .RefreshAll toujours rien