[Calc] Mise à jour de multiples tableaux croisés

[Dude]

Bonjour,

Le menu Données > Tableau croisé (ex-Pilote de données) > Actualiser ne permet d'effectuer l'opération que sur une feuille à la fois. Il faut donc une macro pour que le traitement s'effectue sur plusieurs feuilles.

Dans le classeur ci-dessous, il suffit de lancer la macro MajPilote pour actualiser les deux tableaux dynamiques des feuilles 2 et 3.

Code : Tout sélectionner

Sub MaJPilote
oDoc = thiscomponent
oFeuilleEnum = oDoc.sheets.createEnumeration
While oFeuilleEnum.hasMoreElements()
   oFeuille = oFeuilleEnum.nextElement()
   oPilotes = oFeuille.getDataPilotTables()
   oPiloteEnum = oPilotes.createEnumeration
   While oPiloteEnum.hasMoreElements()
      oPiloteElement = oPiloteEnum.nextElement()
       oPiloteElement.refresh
   Wend
Wend
End Sub

Classeur pour tester tout cela :
https://forum.openoffice.org/fr/ci-join ... 054135.ods

[pirvals]

Bonsoir à tous,

Avec quelque délai, j'ai testé la macro et ça marche !
Toutes les feuilles (20 au total) sont passées en revue et actualisées si il y a 1 tableau croisé.

Rien à redire.

Chapeau bas.
Encore merci et à +
Pierre