Bonjour tous,
j'essaie via un code VBA, d'automatisé la création du TCD.
Par contre quand je passe par l'enregistrement automatique d'une macro et que je lance la commande ainsi créé.
Excel me renvoi une erreur.
y a t'il une astuce pour récupéré un code qqui foncionne?
merci d'avance pour les informations.
pour info : je n'ai pas l'abitude de travailler en VBA, mais ce code sera 'copier-coller' dans une base lotus (en Lotus scripte : tres proche du VBA) pour généré automatiquement un fichier excel 'formaté'.
mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 ' Columns("A:C").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Lotus!C1:C3").CreatePivotTable TableDestination:="", TableName:= _ "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _ "Action", ColumnFields:="Animateur" With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Nom apporteur") .Orientation = xlDataField .NumberFormat = "0" End With
Partager