Discussion :

[Guijack]

Bonjour à tous

je vous expose ma demande

j'ai une table de pilote dans mon classeur CALC, j'ai créé un bouton ( via contrôle de formulaire ) j'ai ensuite par "enregistrer une macro" effectué les manipulations pour actualiser ma table ( clic droit sur la table et actualiser) mais lorsque j'essaye de lier cette macro au bouton aucun résultat.
Pourtant les autres boutons (Trier), mais cette fois dans ma feuille de saisie fonctionnent.

Existe t-il une solution par l’intermédiaire d'une macro spécifique ?
Malgré mes recherches sur le NET je n'ai rien trouvé pour LIBREOFFICE

Cordialement

Merci pour vos réponses

[jurassic pork]

Hello,
Pour actualiser une table de pilote tu peux essayer une macro du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim sheet As Object
Dim PT As Object
Sub RefreshPivotTable()
sheet = thisComponent.Sheets.getByName("PivotTable Example 1")
   PT = sheet.DataPilotTables.getByIndex(0)
   PT.refresh()
End Sub

Ami calmant, J.P

[Guijack]

Bonjour Jurassic pork

Je suis désolé mais ta macro ne fonctionne pas
Comme tu peux le constater en ligne 4 ("PivotTable Example 1") est en rouge et lorsque je lance ta macro la ligne se met en surbrillance et j'ai un message d'erreur.
En ligne 5 le (0) est également en rouge

J'inclus dans mon message le fichier "EXEMPLE" pour plus de compréhension

Cordialement

[jurassic pork]

hello,
c'est normal que le code ne fonctionne pas, il faut mettre le nom de ta feuille de table de pilote , comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub RefreshPivotTable()
Dim sheet As Object
Dim PT As Object
sheet = thisComponent.Sheets.getByName("Tables du pilote_Feuille1_1")
   PT = sheet.DataPilotTables.getByIndex(0)
   PT.refresh()
End Sub

[Guijack]

Bonjour Jurassic Pork

J'ai suivi tes conseils et ça fonctionne.

Encore merci pour ta macro

Cordialement