help problème avec une macro TCD

[wsanchez]

Bonjour à tous

Il y a qq’un qui pourrait m’aider. J’arrive pas a faire un macro d’un tableau croisé dynamique en excel !!
Je dois vous avouer que j’apprend à utiliser les macros .. j’ai déjà fait un mais très simple.. voilà
Sinon par rapport la macro d’un TCD, j’ai eu le suivant message « Erreur d’exécution 5, argument ou appel de procédure incorrect »

Merci pour m’aide !!

Voici VB de la macro :
Sub Macro5()
'
' Macro5 Macro
'

'
Range("A1:A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1 (2)!A1:C6", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil12!A1:C6", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion13
Sheets("Feuil12").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Base")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Numero")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Calificacion")
.Orientation = xlRowField
.Position = 2
End With
End Sub

 

[JCGL]

Re : help problème avec une macro TCD

Bonjour à tous,
Bienvenue sur XLD ;-)

Au vu du code, tu es en XL 2007 : c'est ça ?
Merci de préciser ta version XL dans ton profil

A+ à tous

 

[wsanchez]

Re : help problème avec une macro TCD

Zut j'ai zappé .. oui c'est ça.. c'est XL 2007.. mais je connais pas grande chose au code.. moi j'ai essayé de la faire de la façon simple!! cad avec enregistrer une macro voilà
Sinon je vais le faire.. merci

Will

 

[JCGL]

Re : help problème avec une macro TCD

Bonjour à tous,

Je pense que le problème vient du fait que tu ne nommes pas la feuille ajoutée

Voir mon code SOUS XL 2003 :

Option Explicit

Sub Creation_TCD()
    Sheets.Add
    ActiveSheet.Name = "TCD"
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Data!R1C1:R40C3").CreatePivotTable TableDestination:= _
        "'[Macro TCD.xls]TCD'!R3C1", TableName:="TCD1", _
        DefaultVersion:=xlPivotTableVersion10
    With ActiveSheet.PivotTables("TCD1").PivotFields("Base")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("TCD1").AddDataField ActiveSheet.PivotTables("TCD1").PivotFields("Numero"), _
        "Nombre de Numero", xlCount
    With ActiveSheet.PivotTables("TCD1").PivotFields("Qualification")
        .Orientation = xlColumnField
        .Position = 1
    End With
    
    ActiveSheet.PivotTables("TCD1").PivotFields("Base").PivotItems("(vide)").Visible = False
    ActiveSheet.PivotTables("TCD1").PivotFields("Qualification").PivotItems("(vide)").Visible = False
   
    ActiveWorkbook.ShowPivotTableFieldList = False
    Application.CommandBars("PivotTable").Visible = False
End Sub

Il faut supprimer feuille 'TCD' si tu souhaites relancer le code
La base du TCD pourrait être nommée par NON / DEFINIR

A+ à tous