Discussion :

[Duns77]

Hello,

Je suis grande débutante en vba, je n'ai jamais codé mais j'ai besoin de coder une macro avec tableau croisé dynamique.
Voila le début de mon code, le bout surligné en jaune avec erreur 5:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sheets("Expected B Prices").Select
    Range("F1").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Expected B Prices!", Version:=xlPivotTableVersion6).CreatePivotTable _
         TableDestination:="Feuil22!R3C1", TableName:="Tableau croisé dynamique101", _
         DefaultVersion:=xlPivotTableVersion6
         Sheets("Feuil22").Select
         Cells(3, 1).Select

Je précise que l'erreur ne vient sûrement pas du nom du tableau ni du nom de la feuille puisque lors de mes essais, je fais en sorte de les modifier pour ne pas que la macro "travaille" sur des feuille ou tdc déjà existants.

Après qques recherches, je pense que le pb se situe sur le numéro de la version dans "DefaultVersion" et Version. Pourtant c'est ce que j'ai obtenu en faisant tourner l'enregistreur de macro.

J'ai essayé avec version 7, 12, 14, 15, 16, 17 comme indique les forums, rien ne fonctionne.

Quelqu'un pourrait il m'aider svp ?

Merci d'avance.

[mfoxy]

Hello,

Ce n'est rarement, pour ne pas dire jamais , une bonne idée de créer de table ( pivot ou listobject) via code.
Il est préférable de bien planter le décor, et ensuite manipuler la/les base(s).

De plus un Tdc portant le numéro 101, et un classeur de 22 feuilles , je pencherais pour un défaut de conception.

Pourriez-vous en dire un peu plus sur la finalité de votre projet.

Bav,

[78chris]

Bonjour à tous

Je plussoie...

Quoi qu'il en soit, cette ligne DefaultVersion:=... ne sert à rien qu'à poser problème : le default est celui de la version utilisée donc inutile de préciser

Quitte à nommer les TCD, utiliser un nom signifiant : TCD_par_Client par exemple