urgent

[ryani]

bonjour tout le monde
je fais l'extraction des données sur excel chaque jour, puis je fais des traitements avec les tabeaux croisés pour les transformer enfin en un tableau simple car le chef déteste les tab croisés.
le problème que c'est un qui se répéte chaque jour
je vous donne ici le code, que j'ai mis ds un macro mais je n'arrive à les actualiser car le problème régide dans la feuille de référence "" Feuil1!R1C1:R5398C14""


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R5398C14").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1")
.MergeLabels = True
.PreserveFormatting = False
.SaveData = False
.SubtotalHiddenPageItems = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache. _
RefreshOnFileOpen = True
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
Array("Categorie", "Intitulé Client"), ColumnFields:=Array("Date", "TYPE")
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("MT HT"). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Range("D45").Select
Selection.Delete

NB: ce code je l'ai enregistré à partir du Macro, et j'essaie d'intervenir par la suite.