Microsoft 365 Comment executer la deuxième partie de la macro après verification

[Did95]

Bonjour à tous,
j'ai cherché un peu mais ne maitrisant pas je me pose une question.

j'ai un bouton avec une macro qui exécute un rafraichissement des requêtes Power Query, puis Actualise mais TCD.

Comme l'actualisation des requêtes power Query mais du temps environ 15000 par jour, l'actualisation des TCD ne se fait pas systématiquement.
Est-il possible de mettre une vérification que mes requêtes soient bien actualiser avant de faire les TCD?

voci ma macro:

Sub ActualiserToutDepuisBadge()
' Actualiser les requêtes Power Query
ActiveWorkbook.RefreshAll

' Actualiser les TCDs
Dim wsBadge As Worksheet
Dim wsImmatriculation As Worksheet
Dim ptBadge As PivotTable
Dim ptImmatriculation As PivotTable

' Spécifiez la feuille contenant le TCD "Recap Badge"
Set wsBadge = ThisWorkbook.Sheets("Recap Badge")

' Spécifiez la feuille contenant le TCD "Recap Immatriculation"
Set wsImmatriculation = ThisWorkbook.Sheets("Recap Immatriculation")

' Spécifiez le tableau croisé dynamique "Recap Badge"
Set ptBadge = wsBadge.PivotTables("Recap Badge")

' Spécifiez le tableau croisé dynamique "Recap Immatriculation"
Set ptImmatriculation = wsImmatriculation.PivotTables("Recap Immatriculation")

' Actualise les TCDs
ptBadge.RefreshTable
ptImmatriculation.RefreshTable
End Sub

 

[mapomme]

Bonjour @Did95 ,

Un peu de littérature ici : https://solveandexcel.ca/2023/06/23/how-to-make-vba-wait-for-power-query/

Une des méthodes est d'actualiser vos tableaux structurés les uns après les autres avec pour chacun :
Sheets("maFeuille").ListObjects("monTableauStructuré1").QueryTable.Refresh False
...
puis d'actualiser les TCD.

nota : je suppose qu'il faut rafraichir les requêtes dans un ordre logique en fonction des dépendances des requêtes entre elles - si une requête xq2 dépend d'une requête xq1, d'abord rafraichir xq1 puis xq2.

 

[Did95]

Bonjour mapomme, merci pour le lien.

ce soir je vais tester cette macro qui j'espère solutionnera mon problème.

Sub ActualiserToutDepuisBadgeV2()
' Actualiser les requêtes Power Query
ActiveWorkbook.RefreshAll

' Attendre que les requêtes se terminent
Dim queryName As String
Dim queryTable As queryTable

' Spécifiez le nom de la première requête Power Query
queryName = Badge ' Remplacez par le nom de votre requête

On Error Resume Next
Set queryTable = ThisWorkbook.Queries(queryName).Table
On Error GoTo 0

If Not queryTable Is Nothing Then
Do While queryTable.Refreshing
DoEvents
Loop
End If

' Répétez le processus pour la deuxième requête Power Query
queryName = "Immatriculation" ' Remplacez par le nom de votre deuxième requête

On Error Resume Next
Set queryTable = ThisWorkbook.Queries(queryName).Table
On Error GoTo 0

If Not queryTable Is Nothing Then
Do While queryTable.Refreshing
DoEvents
Loop
End If

' Actualiser les TCDs
Dim wsBadge As Worksheet
Dim wsImmatriculation As Worksheet
Dim ptBadge As PivotTable
Dim ptImmatriculation As PivotTable

' Spécifiez la feuille contenant le TCD "Recap Badge"
Set wsBadge = ThisWorkbook.Sheets("Recap Badge")

' Spécifiez la feuille contenant le TCD "Recap Immatriculation"
Set wsImmatriculation = ThisWorkbook.Sheets("Recap Immatriculation")

' Spécifiez le tableau croisé dynamique "Recap Badge"
Set ptBadge = wsBadge.PivotTables("Recap Badge")

' Spécifiez le tableau croisé dynamique "Recap Immatriculation"
Set ptImmatriculation = wsImmatriculation.PivotTables("Recap Immatriculation")

' Actualise les TCDs
ptBadge.RefreshTable
ptImmatriculation.RefreshTable
End Sub

 

[mapomme]

Re,

Je ne vois pas bien le rapport entre mon message et le "code" que vous voulez tester .

 

[Did95]

j'ai été faire un tour sur votre lien, et j'au pu rebondir sur d'autre tutos qui me seront utile par la suite.

 

[Cousinhub]

Bonjour,
Le plus simple est de déterminer, dans les propriétés, de ne pas "Actualiser en arrière-plan"
Ce que fait le "False" dans le code de monfruit
Et évite ainsi l'usine à gaz telle que présentée dans ton 2ème code...

 

[mapomme]

Bonjour @Cousinhub,

Pas bien réveillé ce matin . Ce n'est qu'à la troisième lecture de ton message que j'ai tilté sur qui était "monfruit". Honte sur moi ! (comme dise les Grands-Bretons).