Incompatibilité Macro TCD

Bonjour,

J'ai créé une macro qui construit un TCD sur Excel 2019, la macro marche très bien sur ma version d'Excel. Mais quand je l'utilise sur mon ordinateur de travail qui marche avec Excel 2007, un message d'erreur de compatibilité s'affiche, le problème vient de cette partie:

Code:

---

1 2 3

Set PTCache = ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=Range("A1").CurrentRegion)

---

Pensez vous que cette partie est incompatible avec Excel 2007 ? savez vous comment la rendre compatible avec Excel 2007 ?

Je suis encore débutant sur VBA, merci d'avance pour votre aide.

Bonjour,

Citation:

---

Envoyé par makeco2

comment la rendre compatible avec Excel 2007 ?

---

Je pense que tu pourrais remplacer Range("A1").CurrentRegion par Range("le nom de ton tableau")

Bonjour

Il y a eu pas mal d'évolutions sur les TCD entre 2007 et 2010

Pour autant que je me souvienne la gestion du cache en faisait partie

De façon générale on ne crée pas de TCD par VBA : on change éventuellement la source d'un TCD créé et peaufiné manuellement

En fait le tableau (la ou il y a la data) n'a pas de nom et change tous les jours, c'est pour cela que j'ai utilisé currentregion, pour sélectionner toute la data qui est sur la feuille et en faire un TCD. Mais ça ne marche pas pour 2007, ça me surprend puisque c'est juste l’équivalent de Ctrl+A

Salut.

Perso, j'importerais le tableau "qui change tous les jours" dans le tableau qui sert de source au TCD. Ma façon de faire est de planter le décor puis d'y amener les données, et pas de changer le décor en fonction des données...

En procédant comme je le propose, on ne doit pas changer le TCD, mais simplement l'actualiser, car je pense, comme Chris ( :plusser:) que le TCD fait partie du décor et qu'on ne le crée pas "à la volée".

RE

Tu peux créer un TCD sur un classeur externe qui est écrasé chaque jour : si le nom ne change pas, une simple actualisation du TCD suffit

Si tu as besoin de garder un historique au fil de l'année tu peux créer une arborescence de type
2020_01
01
02
03
..
2020_02
01
02
03

Et chaque jour y ranger une copie du classeur TCD et le fichier source avec un nom fixe

En fait c'est un exract qui est déposé dans dossier chaque jour et que je dois retraiter en créant un TCD a partir d'une seul feuille et l'enregistrer sans toucher aux autres feuilles.

Comme il n'y a que le nom du fichier qui change, j'ai crée une macro qui ouvre le fichier créer le TCD, enregistre et ferme le fichier. Et ça marche bien sur Excel 2019 mais sur Excel 2007, ça fait une incompatibilité de type :/ ci dessous le code si ça vous intéresse, merci pour votre aide quand même.

Le problème vient de la partie en Rouge

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Sub Pivottest() Dim PTCache As PivotCache Dim PT As PivotTable Application.ScreenUpdating = False Workbooks.Open Filename:=Sheets("Folders").Range("C20").Value Sheets("Data Base (Client OR Sale").Select Set PTCache = ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=Range("A1").CurrentRegion) Worksheets.Add Set PT = ActiveSheet.PivotTables.Add( _ PivotCache:=PTCache, _ TableDestination:=Range("A3")) With PT .PivotFields("Client category (Sector and Team)").Orientation = xlPageField .PivotFields("Revenue ").Orientation = xlPageField .PivotFields("Name").Orientation = xlRowField .PivotFields("Full Name").Orientation = xlRowField .PivotFields("SUM").Orientation = xlDataField .PivotFields("SUM-1").Orientation = xlDataField .PivotFields("FY-1").Orientation = xlDataField .PivotFields("Revenue").ClearAllFilters .PivotFields("Revenue").CurrentPage = "Vente" 'no field captions .DisplayFieldCaptions = False End With ActiveWorkbook.Save ActiveWindow.Close End sub

---

Comme je l'ai dit, l'idée n'est pas pour moi d'ouvrir le fichier et de créer le TCD, mais d'importer les données du fichier dans un fichier de travail déjà construit.

Créer le TCD dans le fichier source revient pour moi travailler à l'envers.