[Power Query] actualisation des requêtes

Bonjour à tous,

Avant de tomber pour de bon en dépression, je fais appel une nouvelle fois à vos lumières.

J'ai un fichier avec plusieurs requêtes PowerQuery, tout fonctionne bien et la mise à jour se fait bien, à l'ouverture du fichier et au lancement de certaines macros avec le code suivant :

Sub refresh()
Dim cn As WorkbookConnection
Application.ScreenUpdating = False

For Each cn In ThisWorkbook.Connections
    cn.Ranges(1).ListObject.QueryTable.refresh BackgroundQuery:=False
Next cn

Feuil2.Range("U3:AS15").ClearContents
If Application.CountA(Feuil1.Range("N1:N50")) + 1 > 2 Then Feuil2.Range("U2:AS2").AutoFill Destination:=Feuil2.Range("U2:AS" & Application.CountA(Feuil1.Range("N1:N50"))), Type:=xlFillDefault
                'ActiveSheet.Protect
Application.ScreenUpdating = True
feuil2.activate
End Sub

Sur office 2013, tout se passe absolument à la perfection. Ça mouline, ça charge, et je reviens sur ma feuille 2.

Mais sur Office 365, je ne sais pas si c'est que tout travaille plus vite ou quoi, mais il se balade d'onglets en onglets (car mes requêtes s'actualisent sur plusieurs feuilles, mais pas sur la 2). Et je termine immanquablement sur un autre onglet au final. En mode pas à pas, tout fonctionne bien.

J'ai essayé des timer, des loop, tous les codes données par Jean-Eric au fil des ans, etc, rien n'y change. Je désespère et je sais que je ne suis pas le seul car le sujet revient sur pas mal de forums, sans que je ne puisse trouver de solution satisfaisante.

Par avance merci à vous !

P'tit up?

Salut JoyeuxNoel et bonne année!

Tu aurais un fichier exemple que je puisse tester chez moi sur 365 ?

Bonjour,

A tester !...

Option Explicit
'https://stackoverflow.com/questions/31476040/refresh-all-queries-in-workbook
Public Sub RefreshQueries()
Dim ws As Worksheet, qt As QueryTable, lo As ListObject
    For Each ws In ActiveWorkbook.Worksheets
        For Each qt In ws.QueryTables
            qt.refresh BackgroundQuery:=False
        Next qt
        For Each lo In ws.ListObjects
            lo.QueryTable.refresh BackgroundQuery:=False
        Next lo
    Next ws
End Sub

Bonjour à tous,

Bien sûr Baboutz, je t'envoie ça en MP. Et très bonne année à toi également.

Noté Jean-Éric, j'essaie ça dès que possible !

Entre temps, sur tous les ordis sur lesquels j'ai pu essayer :

ça foire sur 365, pareil sur 2016 (des fois), et ça passe nickel sur 2013 et 2019. C'est beau !