[VBA] Pivot Table Résolu/Fermé

Question

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 ! 
Configuration: Windows XP / Internet Explorer 6.0

Inufus · Accepted Answer

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

[VBA] Pivot Table

1 réponse

Discussions similaires