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 ?