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