Tableau croisé construit par macro

[stazpo]

Bonjour,

Je souhaite pouvoir mettre en place une macro pour pouvoir créer un tableau croisé dynamique automatiquement.
Voilà ma commande en VBA qui ne marche pas

Sub tabo()
'
' tabo Macro
' Macro enregistrée le 17/03/2009 par Marc
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"admin").CreatePivotTable TableDestination:="TCD!R12C6", TableName:= _
"TCD", DefaultVersion:=xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("TCD").PivotFields("DATE")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("TCD").PivotFields("NOM")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet.PivotTables("TCD"). _
PivotFields("CA"), "Nombre de CA", xlCount
End Sub

Excel me dit erreur d'execution '5'. Argument ou appel de procédure incorrect.

Merci pour votre aide

Stazpo

 

[stazpo]

Re : Tableau croisé construit par macro

Pourquoi personne ne lit mon sujet ou ne m'aide sur le forum j'ai rien trouvé comme solution aidez moi c'est urgent

 

[kjin]

Re : Tableau croisé construit par macro

Bonsoir,
Question posée à 20h29 et toujours pas de réponse à 20h53 !
Tu as raison, c'est tout simplement scandaleux

Sub tabo()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="=admin") _
.CreatePivotTable TableDestination:="TCD!R12C6", TableName:="TCD"
With ActiveSheet.PivotTables("TCD").PivotFields("DATE")
    .Orientation = xlRowField
    .Position = 1
End With
With ActiveSheet.PivotTables("TCD").PivotFields("NOM")
    .Orientation = xlColumnField
    .Position = 1
End With
With ActiveSheet.PivotTables("TCD").PivotFields("CA")
    .Orientation = xlDataField
End With

End Sub

Version 2000 et avec les infos fournies (c'est à dire rien), je précise pour t'éviter un nouveau courroux
kjin