Discussion :

[beta007]

hello,
je dois modifier un caractère de champs dans un tableau croisé que je "reçois" de SAP: passer de "somme" à "nombre".
j'ai donc enregistré ma macro en direct qui me donne

Code :

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

1
2
3
4
5
6
7
Excel.Sheets("Table Condi Follow-Up").Select
    Range("A4").Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "Sum of Quantité d'opération")
        .Caption = "Nombre"
        .Function = xlCount
    End With

mais cela ne foncionne pas quand je lance la macro
j'ai donc fait des recherches sur ce merveilleux outil "Developpez.com"
et j'ai trouvé ceci qui ressemble beaucoup à l'enregistrement auto!

Code :

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

Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields("Sum of Quantité d'opération").Function = xlCount

mais résultat identique: message d'erreur "impossible de lire la propriété PivotFields de la classe PivotTable"
avez-vous une idée de ce que je fait faux?
merci d'avance de votre aide.

[Philippe PONS]

Salut,


tu devrais tester successivement les différentes parties de l'instruction
et voir laquelle plante!

Code :

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

1
2
3
4
5
6
7
8
 
debug.print Sheets("Table Condi Follow-Up").Name
 
debug.print Sheets("Table Condi Follow-Up").PivotTables.count 
 
debug.print  Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields.count
 
debug.prin Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields("Sum of Quantité d'opération").Name

Cordialement,

[beta007]

merci de ta prompte réactivité
les trois premières instructions passent, puis bug sur la dernière avec le même mesage => donc problème sur "Sum of Quantité d'opération", mais ce que je ne comprends pas c'est le nom trouvé lors de l'affectation lors de la création en auto de ma macro, de plus dans ma table source l'entête de la colonne est bien "Quantité d'opération"
si j'enlève "sum of" cela passe dans le debug, mais pas dans ma macro!

[Philippe PONS]

ok,
et si tu remplaces le nom du champ par un index numérique, ça donne quoi?

Par exemple:

Code :

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

Debug.Print Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields(0).Name

Attention, je ne sais pas si le premier élément de la collection PivotFields a pour index 0 ou 1!
Si c'est 1 ça va planter!

Cordialement,

[beta007]

c'est incroyable, dans le debug je mais l'indice correspondant, la réponce est bien "Quantité d'opération", mais si je mets le même indice dans ma macro cela bug

[Philippe PONS]

Oui, j'ai le même problème.
Essaie de supprimer le champ et de le recréer
Cordialement,

[Philippe PONS]

Bonjour,

effectivement, la propriété Function ne se manipule pas aussi facilement!
Après pas mal de recherche dans les forums, je te propose d'essayer le code suivant.
2 remarques:
1- il faut absolument régler Orientation=xlDataField avant de modifier la propriété Function
2- en fait, un nouveau champ est crée, il faut masquer l'ancien

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
18
19
20
21
Sub testForum()
    ' variables
    Dim sh As Worksheet
    Dim pt As PivotTable
    Dim pf As PivotField
 
    ' init
    Set sh = Sheets("Table Condi Follow-Up")
    Set pt = sh.PivotTables("PivotTable1")
    Set pf = pt.PivotFields("Sum of Quantité d'opération")
    ' changer la fonction
    With pf
        .Orientation = xlDataField ' il faut fixer l'orientation
        .Function = xlCount
    End With
    ' résultat: un nouveau champ a été ajouté
    ' pf référence le nouveau champ
    ' il faut retrouver l'ancien et le masquer
    Set pf = pt.PivotFields("Sum of Quantité d'opération")
    pf.Orientation = xlHidden
End Sub

Cordialement,