Discussion :

[comme de bien entendu]

Bonjour,

Je souhaiterais changer le nom d'une colonne dans un TCD, mais je n'y arrive pas, j'ai essayé en modifiant le Selection.Caption, mais je ne peux accéder à l'objet .Caption dans la Selection

Code :

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

1
2
3
4
5
6
7
8
 
ActiveSheet.PivotTables(NomPT).PivotSelect "'Count of Pros / (Cons)'", xlDataAndLabel, True
    With Selection
    .HorizontalAlignment = xlRight
    .VerticalAlignment = xlTop
    .ColumnWidth = 9.57
  '  .Caption = "Pros/(Cons)"
    End With

J'ai donc générer grace à l'enregisteur la commande ci-dessous,

Code :

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

1
2
    ActiveSheet.PivotTables(NomPT).DataPivotField. _
        PivotItems("'Count of Pros / (Cons)'").Caption = "Pros /(Cons)"

que j'ai mis à la suite du code précédent, mais j'ai l'erreur de Run Time 1004 avec le message suivant :

unable to get the PivotItems property of the pivotfield class.

D'avance merci de vos réponses.

[SilkyRoad]

bonjour

Réessaye en enlevant les quotes ' qui encadrent le nom:
(Testé avec Excel2002)

Code :

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

1
2
ActiveSheet.PivotTables(NomPT).DataPivotField. _
  PivotItems("Count of Pros / (Cons)").Caption = "Pros /(Cons)"

michel

[comme de bien entendu]

Merci, ca marche, mais ca ne tombait pas sous le sens.
J'ai l'impression que le nommage des champs de TCD manque un peu de cohérence.
Qu'en dis tu ?