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