Macro avec TCD utilisant 2 fois le même champ

Bonjour à tous.

Ma recherche sur ce forum n'ayant rien donné, je me résous à poser la question.

J'ai enregistré une macro qui crée un TCD n'utilisant qu'un seul champ, mais 2 fois : en étiquette de lignes, et en Ʃ valeurs.

Cette macro semble fonctionner, ne m'affiche pas de message d'erreur, mais a comme résultat de ... ne placer le champ qu'en étiquette de ligne, et pas en Ʃ valeurs.

Si 2 champs sont utilisés (1 pour l'étiquette de lignes, l'autre pour Ʃ valeurs), la macro fonctionne parfaitement.

Mais si 1 seul champ est utilisé, .

Autrement dit, ceci fonctionne :

Sub TOTsansCodeProjet_TCD()
'
' TOTsansCodeProjet_TCD Macro
'

'
    Range("A1").Select
    Selection.CurrentRegion.Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R30C17", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Feuil2!R3C1", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion10
    Sheets("Feuil2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "CA concerné")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("N° Tache d'OT"), _
        "Nombre de N° Tache d'OT", xlCount
    Range("B5").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("CA concerné") _
        .AutoSort xlDescending, "Nombre de N° Tache d'OT", ActiveSheet.PivotTables( _
        "Tableau croisé dynamique1").PivotColumnAxis.PivotLines(1), 1
End Sub

mais pas cela :

Sub TOTsansCodeProjet_TCD()
'
' TOTsansCodeProjet_TCD Macro
'

'
    Range("A1").Select
    Selection.CurrentRegion.Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R30C17", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Feuil2!R3C1", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion10
    Sheets("Feuil2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "CA concerné")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("CA concerné"), _
        "Nombre de N° Tache d'OT", xlCount
    Range("B5").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("CA concerné") _
        .AutoSort xlDescending, "Nombre de N° Tache d'OT", ActiveSheet.PivotTables( _
        "Tableau croisé dynamique1").PivotColumnAxis.PivotLines(1), 1
End Sub

Bonjour

Avez-vous solutionné votre souci.

Cordialement

Oui, j'ai solutionné mon problème, mais en utilisant 2 champs différents.