Bonjour,
Tout d'abord un cordial salut à jbf et Pys (ainsi qu'à tous les abonnés de la liste
)
- soit un fichier Calc
- dans lequel on définit un pilote (ou ou plus) qui fonctionne plus ou moins de façon attendue (l'actualisation ne se fait pas en mode Calc, si on ajoute de données dans la plage source)
- passage en mode macro pour y coller un Dude_Inside :
Sub MaJPilote
Dim monDetailFiltre(0) as new com.sun.star.sheet.TableFilterField
oDoc = thiscomponent
oFeuilleEnum = oDoc.sheets.createEnumeration
While oFeuilleEnum.hasMoreElements()
oFeuille = oFeuilleEnum.nextElement()
oPilotes = oFeuille.getDataPilotTables()
IF oPilotes.Count = 0 Then msgBox "Pas de pilote", 32, oFeuille.Name
oPiloteEnum = oPilotes.createEnumeration
While oPiloteEnum.hasMoreElements()
oPiloteElement = oPiloteEnum.nextElement()
oPiloteElement.refresh
Wend
Wend
End Sub
oPilotes.Count renvoie 0, confirmé si besoin est par XRay. (@ Pys : help ! Qu'ai-je zappé ?)
J'ai le même résultat sous OOo 3.2.1 et sous LO 3.4.1 (au choix le 3.x.x ou le x.x.1 me maudit...)
Cordialement
Churay
