Refresh Power Query

Bonjour, Tout d'abord désolé pour le format du mesage ci-dessous j'ai un navigateur qui me pose problème en ce moment ...

J'essaye de mettre à jour une query de Power query via VBA et une fois la query mise à jour de copier certaines cellules pour ensuite les envoyer par mail... J'utilise le code suivant :

Private Sub Workbook_Open()

ActiveWorkbook.Connections("BLABLA").Refresh

Application.Wait (Now + TimeValue("0:00:10"))

ActiveWorkbook.RefreshAll

Worksheets("BLABLA").Activate

Range("A6").Select

ActiveWorkbook.Connections("Query - BLABLA").Refresh

Application.ScreenUpdating = True

Application.Wait (Now + TimeValue("0:00:2"))

Dim oOutlook As Object

Application.DisplayAlerts = False

On Error Resume Next

Set oOutlook = GetObject(, "Outlook.Application")

On Error GoTo 0 If oOutlook Is Nothing Then Shell "Outlook.exe", vbHide

End If

Worksheets("BLABLA").Select

'Sheets("BLABLA").Select

Range("Test2").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope .Introduction = "bonjour "

.Item.To = "azerty@xyz.com"

'.Item.CC = "on verra plus tard"

.Item.Subject = "AU secours"

.Item.Send

Application.DisplayAlerts = False

Application.Wait (Now + TimeValue("0:00:10"))

Worksheets("BLABLA").Activate

Range("A6").Select

ActiveWorkbook.Save

ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

Le problème que j'ai c'est que toute la macro défile sans que la mise à jour de la query ne s'affiche à l'écran et donc je copie des cellules vides !! Vous pouvez constater dans le code ci-dessus que j'ai usé de ..Select, .Activate, Refresh... pour essayer de forcer l'arrivée des données à l'écran mais en vain.

Etrangement ceci fonctionne :

Private Sub Workbook_Open()

ActiveWorkbook.Connections("BLABLA").Refresh

Application.Wait (Now + TimeValue("0:00:10"))

End sud

Lorsque cette macro termine, l'écran se met bien à jour ... mais dès que j'enchaine avec d'autres lignes de code ( et fermeture du classeur à la fin) les données ne se mettent pas à jour ! Quelqu'un a - t- il une idée pour me sortir de cela ?

Merci d'avance !<p></p>

VBABEGINNER

Désolé mais lorsque je publie le message se met en un bloc et est illisible. J'ignore pourquoi !

Bonjour,

Peut-être qu'en suivant ce lien, tu pourrais obtenir une réponse..

Bonne lecture

Bonjour,

Mon dieu ! Il suffit de désactiver l'exécution en arrière plan et ça marche ! J'ai perdu des heures sur ça ==> :-(

Mais j'ai appris quelque chose ==>

Merci beaucoup Cousinhub !

Bonne journée à tous !