D
Daniel
Guest
bonjour !
Voilà, j'ai sur une feuille 6 tableaux dynamiques qui ont la même source. Par contre, j'ai fait une macro (voir ci dessou) qui actualise un par un les tableaux. Le problème est que c'est long et surtout ça PLANTE! (pas de réponse)
Y a t'il une solution, comme un code VBA qui actualise la totalité des tableaux en même temps ??
Merci pour votre aide.
Voici le code que j'ai créer :
Sheets('RAPPORT').Select
Range('D14').Select
ActiveSheet.PivotTables('Tableau croisé dynamique26').PivotCache.Refresh
Range('I13').Select
ActiveSheet.PivotTables('Tableau croisé dynamique27').PivotCache.Refresh
Range('O14').Select
ActiveSheet.PivotTables('Tableau croisé dynamique28').PivotCache.Refresh
Range('U13').Select
ActiveSheet.PivotTables('Tableau croisé dynamique29').PivotCache.Refresh
Range('Z10').Select
ActiveSheet.PivotTables('Tableau croisé dynamique30').PivotCache.Refresh
Range('AE7').Select
ActiveSheet.PivotTables('Tableau croisé dynamique31').PivotCache.Refresh
Voilà, j'ai sur une feuille 6 tableaux dynamiques qui ont la même source. Par contre, j'ai fait une macro (voir ci dessou) qui actualise un par un les tableaux. Le problème est que c'est long et surtout ça PLANTE! (pas de réponse)
Y a t'il une solution, comme un code VBA qui actualise la totalité des tableaux en même temps ??
Merci pour votre aide.
Voici le code que j'ai créer :
Sheets('RAPPORT').Select
Range('D14').Select
ActiveSheet.PivotTables('Tableau croisé dynamique26').PivotCache.Refresh
Range('I13').Select
ActiveSheet.PivotTables('Tableau croisé dynamique27').PivotCache.Refresh
Range('O14').Select
ActiveSheet.PivotTables('Tableau croisé dynamique28').PivotCache.Refresh
Range('U13').Select
ActiveSheet.PivotTables('Tableau croisé dynamique29').PivotCache.Refresh
Range('Z10').Select
ActiveSheet.PivotTables('Tableau croisé dynamique30').PivotCache.Refresh
Range('AE7').Select
ActiveSheet.PivotTables('Tableau croisé dynamique31').PivotCache.Refresh