Discussion :

[luego]

Salut a tous,

Je suis en train de programmer un programme de mise a jour automatique d'un fichier excel a partir de bases de donnees. Je souhaite maintenant pouvoir modifier un pivot chart a partir d'une boite de dialogue. En gros j'y arrive, ca marche. Mon probleme est pour la gestion d'un message d'erreur: en gros je souhaite verifier que la string entree par l'utilisateur dans la boite de dialogue soit bien comprise dans le pivotfield que je veux modifier.( ActiveChart.PivotLayout.PivotTable.PivotFields("Inv W/Y") : ceci est mon pivotfield...)

Si je ne suis pas assez clair, vous pouvez me redemander, mais ce que je veux en gros, c'est savoir s'il y a une fonction toute faite d'inclusion, ou s'il faut que j'ecrive une boucle et dans ce cas, comment?

Merci a tous

[ouskel'n'or]

Tu es très clair mais un peu de code nous permettrait de t'aider là ou tu en as vraiment besoin

[luego]

Ok, merci bien

Encore un petit doute: je ne trouve pas dans l'aide l'intitule des objets contenus dans le pivotfield. Parce que pour faire la boucle, il va bien me falloir l'intitule.
Desole, j'ai debute vba il y trois jours...

[luego]

je vais contourner le pb... en me servant de la date a laquelle le pivot chart a ete rafraichi en dernier...
Merci qd meme

[SilkyRoad]

bonjour

mais pas si vite ...la question est posée à 09h45 et tu veux cloturer à 10h40....


tu peux tester cette procedure

Code :

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

1
2
3
4
5
6
7
8
9
Dim Pvt As PivotTable
Dim Pvfi As PivotField
Dim i As Integer
 
Set Pvt = Graph1.PivotLayout.PivotTable
 
For Each Pvfi In Pvt.VisibleFields
    Debug.Print Pvfi.Name
Next Pvfi

bonne journée
michel