Discussion :

[comme de bien entendu]

Bonjour,
Je parviens dans mon TCD en mode manuel à positionner un champs à la fois dans la zone d'etiquette et dans la zone de valeurs.
Par contre lorsque je souhaite obtenir la même disposition par le VBA je n'obtiens que la zone de valeurs. (et je n'ai pas mes Agents de résolution dans la zone d'etiquettes)
Voici le code que j'ai écris :

Code :

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

1
2
3
4
5
6
7
8
With ActiveSheet.PivotTables("Mon TCD2").PivotFields( _
        "Agent de résolution")
        .Orientation = xlRowField
        .Position = 1
    End With
ActiveSheet.PivotTables("Mon TCD2").AddDataField ActiveSheet. _
        PivotTables("Mon TCD2").PivotFields("Agent de résolution"), _
        "Nombre de Agent de résolution", xlCount

Merci d'avance de vos idées.

[comme de bien entendu]

Bonjour, j'ai trouvé, il suffisait de recopier à la suite le code de selection du champs Etiquette initial, c'est à dire

Code :

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

1
2
3
4
5
With ActiveSheet.PivotTables("Mon TCD2").PivotFields( _
        "Agent de résolution")
        .Orientation = xlRowField
        .Position = 1
    End With

Voilà, c'est résolu.