Problème création TCD en VBA

[Erganion]

Bonjour,

J'essaye actuellement de créer ou juste changer les données d'un TCD à partir de données.
J'ai essayé pleins de codes différents, mais aucun ne fonctionne !

Le but : Créer un TCD à partir du tableau de données Feuil9 A7:X97 dans Feuil8
Voici un code que j'ai essayé :

ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Feuil9!A7].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Feuil8!R3C1", _
TableName:="Mon TCD"

Sans succès...

Voici le code que j'obtiens si j'enregistre le macro :

Sheets("Feuil9").Select
ActiveWindow.SmallScroll Down:=-24
Range("A7").Select
ActiveWorkbook.Worksheets("TCD accord Commun").PivotTables( _
"Tableau croisé dynamique1").PivotCache.CreatePivotTable TableDestination:= _
"Feuil8!L20C13", TableName:="Tableau croisé dynamique5", _
DefaultVersion:=xlPivotTableVersion10

Si je recommence avec ce code, il ne donne rien...

Merci de votre aide !!!

 

[Erganion]

Re : Problème création TCD en VBA

Petite précision, le premier code marche sous un classeur excel 2007, mais je suis sur un document en compatibilité excel 2003 et il ne marche plus ...

 

[Erganion]

Re : Problème création TCD en VBA

J'ai trouvé un code qui convenait après 5 heures de recherche ... 🙂