TCD Programmation

[tbft]

Bonjour le Forum

Pouvez vous me dire si il est possible de récupérer le noms des colonnes (ou les références) qui ont permis de créer un TCD?

On retrouve ces noms lorsque l'on met en forme le TCD dans la fenêtre Disposition.....

D'avance merci

 

[tbft]

Re : TCD Programmation

j'ai essayé avec la propriété caption
mais elle ne change pas non plus...

 

[Pierrot93]

Re : TCD Programmation

Re,

essaye ainsi, bouclera uniquement sur les champs de données :

Dim i As PivotItem
For Each i In ActiveSheet.PivotTables(1).DataPivotField.PivotItems
    MsgBox i.Name
Next i

Edité par horreur

 

[tbft]

Re : TCD Programmation

Re

je viens de trouver un truc bizarre
il ajout "PivotFields" qu'il appel "Données"
mais je n'arrive pas a retrouver mes petits...

 

[tbft]

Re : TCD Programmation

cool j'obtiens des trucs
je regarde si je peux remonter vers les champs (entete de colonne) d'origines
merci beaucoup

 

[tbft]

Re : TCD Programmation

je n'arrive pas à remonter vers mes noms "sources"
mais c'est pas grave.

encore merci Pierrot

 

[tototiti2008]

Re : TCD Programmation

Bonjour à tous,

trés en retard, mais bon je poste

Sub test()
Dim pf As PivotField
    For Each pf In ActiveSheet.PivotTables(1).ColumnFields
        MsgBox "colonne : " & pf.Name
    Next pf
    For Each pf In ActiveSheet.PivotTables(1).DataFields
        MsgBox "données : " & pf.Name
    Next pf
    For Each pf In ActiveSheet.PivotTables(1).HiddenFields
        MsgBox "masqué : " & pf.Name
    Next pf
    For Each pf In ActiveSheet.PivotTables(1).PageFields
        MsgBox "page : " & pf.Name
    Next pf
    For Each pf In ActiveSheet.PivotTables(1).RowFields
        MsgBox "ligne : " & pf.Name
    Next pf
    For Each pf In ActiveSheet.PivotTables(1).VisibleFields
        MsgBox "visible : " & pf.Name
    Next pf
End Sub

C'est vrai que pour le champs de données il ajoute l'opérateur devant...

Edit :

Pour avoir le nom original des champs en données il faut faire :

pf.SourceName

Pffff.. un peu tordu quand même

 

[Pierrot93]

Re : TCD Programmation

Re,

essaye peut être ceci :

Dim i As PivotItem
For Each i In ActiveSheet.PivotTables(1).DataPivotField.PivotItems
    MsgBox i.Parent.Name
Next i

 

[tbft]

Re : TCD Programmation

Bonjour tototiti

Pierrot je viens d'essayé ce que tu ma dit (écris) et je tombe sur le nom du TCD

 

[tbft]

Re : TCD Programmation

je viens d'essayé un morceau du code de tititoto
je retrouve bien tout mes petits

Merci à tout les deux