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

[bentahar.principale]

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 une requête de power query et ce à 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.
j'ai tester avec DoEvents Application.Calculate et avec .RefreshAll même chose
Merci d'avance

 

[drul]

Pas sûr qu'il existe un moyen d'obtenir cet info :/
Un délais pourrait fonctionner ?

edit: essaye un "wb.RefreshAll", avant le "wb.save", pas sûr du résultat, mais ça vaut la peine d'essayer...

 

[bentahar.principale]

Merci mais ça fonctionne pas

 

[drul]

Un timer ?

 

[bentahar.principale]

le timer bloque aussi l'actualisation

 

[drul]

Salut, dans un module, met le code suivant:

Dim wb As Workbook
Sub Test()
Set wb = Workbooks.Open("C:\Calcule.xlsx")
Application.OnTime Now + TimeValue("00:00:05"), "closeFile"
End Sub

Sub closeFile()
    wb.Save
    wb.Close
End Sub