Discussion :

[Sherman750]

La macro fonctionne sur mon ordinateur avec la version de excel 2003 mais ne fonctionne pas avec d'autre version plus récente. Pourquoi?

La macro génère un tableau croisé dynamique.

Voici ma portion de code qui génère le TCD.
Code :
Sélectionner tout - Visualiser dans une fenêtre à part

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Quote"), _
        "Nombre de Billed", xlCount
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Billed"), _
        "Nombre de Quote", xlCount
 
    Range("B13").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Nombre de Quote").Function = xlSum
    ActiveWorkbook.ShowPivotTableFieldList = False
 
    Range("B13").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Somme de Quote")
        .NumberFormat = "# ##0,00\ [$€-1]"
    End With

Ça plante toujours dans cette partie du code
Code :

Code :

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

1
2
3
4
5
Range("B13").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Somme de Quote")
        .NumberFormat = "# ##0,00\ [$€-1]"
    End With

Merci d'avance

[Daniel.C]

Bonjour,

Il y a des différences entre les TCD d'avant et après XL2007. Mais normalement, ton code devrait fonctionner. Tu peux toutefois utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Quote"), _
        "Nombre de Billed", xlCount
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Billed"), _
        "Somme de Quote", xlSum
 
    Range("B13").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Somme de Quote").NumberFormat = "# ##0,00\ [$€-1]"
    ActiveWorkbook.ShowPivotTableFieldList = False

[Sherman750]

Est-ce que je remplace tout le code par ce que tu me propose ou est-ce que je place cette modification quelque part dans mon code?

[Daniel.C]

Tu remplaces tout le code que tu as posté par le mien.

[Sherman750]

Pour le moment ça fonctionne sur Excel 2003. Je vais faire des tests pour Excel 2007 et je te reviens avec les résultats.