Tcd

Fermé
Artur - 15 nov. 2011 à 09:54
Bonjour,

J'ai un soucis avec un TCD que j'essaye de faire en macro

Lors de l'éxécution la ligne en gras est surligné, quelqu'un peut-il m'aider ?

Le code :
Sheets("Balance").Select
    Range("A1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Export!L1C1:L1570C19", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Balance!L1C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion12    
    Sheets("Balance").Select
    Cells(1, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Client")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Numéro de client 1")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Echéance")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("RET +90jrs"), _
        "Somme de RET +90jrs", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("RET 60 à 90 jrs"), _
        "Somme de RET 60 à 90 jrs", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("RET 30 à 60 jrs"), _
        "Somme de RET 30 à 60 jrs", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("RET 0 à 30 jrs"), _
        "Somme de RET 0 à 30 jrs", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("ECH -30jrs"), _
        "Somme de ECH -30jrs", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("ECH -60jrs"), _
        "Somme de ECH -60jrs", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("ECH SUP 60jrs"), _
        "Somme de ECH SUP 60jrs", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").TableStyle2 = _
        "PivotStyleLight9"