[VBA] Pivot Table

Résolu/Fermé

Inufus - Modifié par Inufus le 17/01/2011 à 14:46
Inufus - 17 janv. 2011 à 15:44

Bonjour,

J'ai utilisé l'enregistreur de macro pour créer un tableau dynamique croisé dans le but d'étudier la façon de faire un tableau dynamique croisé en VBA.
Le hic, c'est que une fois la macro enregistrée via l'enregistreur de macro,
elle ne fonctionne pas.
J'ai une erreur :
"Erreur d'éxécution '5' : Argument ou appel de procédure incorrect"

Voilà mon code :

Sub TableauDynCroise() 

range("A1:D178").Select 
Rand("M5").Activate 
---->ActiveWorkbook.PivotCaches.Caches(SourceType:=xlDatabase, SourceData:="Liste!R1C1:R178C4", Version:xlPivotTableVersion10).CreatePivotTable TableDestination:="Feuil6!R1C1", TableName:= "Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion10

Là où j'ai positionné le "--->" est l'enroit où l'erreur arrive.

Merci d'avance !

A voir également:

[VBA] Pivot Table
Table ascii - Guide
Table des matières word - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

Inufus
17 janv. 2011 à 15:44

Je l'ai résolu.
La solution :

Sub TableauDynCroise() 

range(Sheets("Liste").Cells(1,1),Sheets("Liste").Cells(4,178).Select 
Rand("M5").Activate 
---->ActiveWorkbook.PivotCaches.Caches(SourceType:=xlDatabase, SourceData:=range(Sheets("Liste").Cells(1,1),Sheets("Liste").Cells(4,178), Version:xlPivotTableVersion10).CreatePivotTable TableDestination:=Sheets("Feuil6).cells(1,1)", TableName:= "Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion10

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Intégrer une table des annexes et des matières sur word

VBA erreur 1004

Discussions similaires

Newsletters