Jean-Eric a écrit :
Bonjour,
Tu as semble t-il un souci avec le style de référence L1C1 (options excel) et dans la déclaration de la source des données dans ta procédure.
Cdlt.
j'ai déjà tenté le coup avec les références, sans succès.. (cela ne marche plus, ni sur mon poste, ni sur le poste du collègue.)
Sub CreationTcd()
'
' CréationTcd Macro
'
'
Sheets.Add
Sheets("Base").Select
database = ActiveSheet.Name & "!R1C1:R3000C28"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
database, Version:=6).CreatePivotTable TableDestination:= _
"Feuil1!R3C1", TableName:="Tableau croisé dynamique1", DefaultVersion:=6
Sheets("Feuil1").Select
Cells(3, 1).Select