Bonjour à tous,
Je m'inscris ici aujourd'hui parce que j'utilise souvent excel dans mon travail, je souhaite m'améliorer sur VBA et je suis sur qu'avec des pro comme on en trouve ici je vais y arriver...
Je crée ce sujet parce que je n'ai pas pu trouver dans le forum un autre sujet qui a bien traité bien traité la solution à mon petit problème...
Voilà, ma macro actualise 2 requêtes query puis ensuite 2 tableau croisé dynamique tout simplement. Cependant mes 2 tableaux croisés dynamique s'actualise avant que les informations est été importé avec les requêtes query. Je souhaite que l'actualisation de mes tableaux se fasse après la finalisation de l'actualisation des requêtes.
J'ai essayé avec Wait mais le temps d'exécution des requètes varie trop.
Voila mon code, si vous avez le temps d'y jeter un oeil ça serait cool !
Sub MiseAJour()
Dim qtb As Excel.QueryTable
For Each qtb In ThisWorkbook.Worksheets("Etiquettes supprimées").QueryTables
qtb.Refresh
Next qtb
Application.Wait Now + TimeValue("0:01:00")
For Each qtb In ThisWorkbook.Worksheets("Stock FSM").QueryTables
qtb.Refresh
Next qtb
Application.Wait Now + TimeValue("0:01:00")
Worksheets("Comparaison").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
End Sub
Je m'inscris ici aujourd'hui parce que j'utilise souvent excel dans mon travail, je souhaite m'améliorer sur VBA et je suis sur qu'avec des pro comme on en trouve ici je vais y arriver...
Je crée ce sujet parce que je n'ai pas pu trouver dans le forum un autre sujet qui a bien traité bien traité la solution à mon petit problème...
Voilà, ma macro actualise 2 requêtes query puis ensuite 2 tableau croisé dynamique tout simplement. Cependant mes 2 tableaux croisés dynamique s'actualise avant que les informations est été importé avec les requêtes query. Je souhaite que l'actualisation de mes tableaux se fasse après la finalisation de l'actualisation des requêtes.
J'ai essayé avec Wait mais le temps d'exécution des requètes varie trop.
Voila mon code, si vous avez le temps d'y jeter un oeil ça serait cool !
Sub MiseAJour()
Dim qtb As Excel.QueryTable
For Each qtb In ThisWorkbook.Worksheets("Etiquettes supprimées").QueryTables
qtb.Refresh
Next qtb
Application.Wait Now + TimeValue("0:01:00")
For Each qtb In ThisWorkbook.Worksheets("Stock FSM").QueryTables
qtb.Refresh
Next qtb
Application.Wait Now + TimeValue("0:01:00")
Worksheets("Comparaison").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
End Sub