tableaux croises version excel 2000

efferalgan

XLDnaute Nouveau
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
 

BrunoM45

XLDnaute Barbatruc
Re : tableaux croises version excel 2000

Salut Efferalgan (j'adore ton pseudo :D)

Je ne sais pas si cela va fonctionner, mais essaye d'enlever : XlAverage
à la fin de ton code
Code:
ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("C77"), "Nombre de C77"

A+
 

Statistiques des forums

Discussions
294 444
Messages
1 938 544
Membres
188 916
dernier inscrit
mhedi69