tableaux croises version excel 2000

[efferalgan]

Bonsoir,

Voila, j'ai bien bossé chez moi (excel version 2003) et tout tourne bien. J'ai apporté mon classeur en entreprise (version 2000) et il me colle une erreur 438 sur la ligne ***

Ce fut un moment douloureux!
Si quelqu'un a une piste.

Merci par avance

' création tcd sur feuille temp
Sheets("temp").Select
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"donnees!A1:CK" & nbligne).CreatePivotTable TableDestination:=Range("A1"), _
TableName:="Tableau croisé dynamique5"
ActiveSheet.PivotTables("Tableau croisé dynamique5").SmallGrid = False
With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Anc LM")
.Orientation = xlColumnField
.Position = 1
End With

*** ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("C77"), "Nombre de C77", _
xlAverage

 

[Compte Supprimé 979]

Re : tableaux croises version excel 2000

Salut Efferalgan (j'adore ton pseudo 😀)

Je ne sais pas si cela va fonctionner, mais essaye d'enlever : XlAverage
à la fin de ton code

ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("C77"), "Nombre de C77"

A+

 

[efferalgan]

Re : tableaux croises version excel 2000

Coucou,
Si j'enlève xlaverage, j'ai la somme et non plus la moyenne !

dur dur toutes ces versions. J'en ai mal au crane...
A+