Discussion :

[gillou13]

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

[SilkyRoad]

bonsoir

Excel me renvoi une erreur.

Quelle erreur et sur quelle ligne ?

bonne soirée
michel