1 pièce(s) jointe(s)
problème avec une macro TCD
Bonjour à tous
Il y a quelqu’un qui pourrait m’aider. Je n’arrive pas a faire un macro d’un tableau croisé dynamique en excel !!
Je dois vous avouer que j’apprends à 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
Citation:
Erreur d’exécution 5, argument ou appel de procédure incorrect
Merci pour m’aide !!
Voici VB de la macro crée en XL 2007 mais ci-joint je l'ai mis en version 93- 2003
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| 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:=xlDa tabase, 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 |
