Macro et TCD

Fermé
Elami - 27 juin 2012 à 11:03
Bonjour,

Je cherche à exécuter une macro qui génère un TCD en utilisant l'assistant de création de macro et çà ne fonctionne pas, voici le message dans Visual Basic :

Sub TCD()
'
' TCD Macro
' Macro enregistrée le 27/06/2012 par *
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="TCD"). _
CreatePivotTable TableDestination:="[extraction.xls]TCD!R1C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Num CP")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nom Prénom ")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Profil")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Profil"), _
"Nombre de Profil", xlCount
Range("K2").Select
End Sub







ESt-ce que quelqu'un a déjà rencontré ce problème ?

Merci

A voir également: