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.