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
 
C

Compte Supprimé 979

Guest
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+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra