TCD : choix de l'emplacement [Résolu]

[ericdev67]

Bonjour,

je cherche à créer des Tableaux Croisés dynamiques par VBA.....

Pour l'instant, j'utilise l'assistant macro et je commence à comprendre le fonctionnement.

Par contre, j'ai fait un essai de création, l'assistant me donne

Code :

1
2
3
4
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Totaux!e:av", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="", TableName:="Tableau croisé dynamique3" _
        , DefaultVersion:=xlPivotTableVersion10

, tout fonctionne, mais là, il me crée une nouvelle feuille.

Etant donné que je souhaite créer plusieurs TCD dans une même feuille, j'essaie de le mettre dans une feuille appelée "TB1", d'abord je commence par A1, donc, logiquement, je fais

Code :

1
2
3
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Totaux!e:av").CreatePivotTable TableDestination:="TB1!a1", TableName:= _
        "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10

, et là, j'ai une erreur...

Je ne comprends pas.....

Une idée, une explication ?

Merci,

A+

[jfontaine]

Bonjour,

N'oublie pas de dire quelle erreur.

As tu essayé d'ajouter le nom du classeur dans la TableDestination?

[ericdev67]

Merci jfontaine,

Oui, j'ai essayé en mettant

Code :

"TB1!a1"

qui correspond à ma feuille et la plage/cellule où je voulais mettre mon TCD...

A+

[bbil]

Envoyé par jfontaine

...
N'oublie pas de dire quelle erreur...

[jfontaine]

Oui, j'ai essayé en mettant
Code :Sélectionner tout - Visualiser dans une fenêtre à part
"TB1!a1"
qui correspond à ma feuille et la plage/cellule où je voulais mettre mon TCD...

Il me semble avoir écrit classeur et non onglet.

[Ormonth]

Bonjour,

Pour l'instant, j'utilise l'assistant macro et je commence à comprendre le fonctionnement

Suis ton raisonnement jusqu'au bout et fais 2 TCD dans une même feuille avec l'enregistreur !

Il fera ce que t'a proposé jfontaine...

Code :

1
2
3
4
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R120C3").CreatePivotTable TableDestination:= _
        "[Classeur1]FeuilaMoi!R22C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion10

PS : précises ta version d'Excel, ce doit être 2003 ou avant, ensuite le code n'est plus le même...

cordialement,

Didier

[ericdev67]

Merci jfontaine,

C'est vrai que ta question était précise, et je comprends mieux ta question quand j'ai fait ce que m'a conseillé Ormonth...

Merci Ormonth,j'ai compris le problème....je ne m'en étais pas aperçu auparavant : il est important de donner le "vrai" chemin : classeur + feuille + cellule....

Et là, ça fonctionne pile poil

Merci à vous deux,

A+ pour de prochaines aventures