kawamonster
Messages postés27Date d'inscriptionlundi 21 mai 2012StatutMembreDernière intervention12 avril 2016
-
Modifié par jordane45 le 14/11/2014 à 11:34
jordane45
Messages postés38145Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention25 avril 2024
-
14 nov. 2014 à 11:35
Bonjour à tous,
En ayant utilisé l'enregistreur de macro, lorsque je décide de relancer ma macro, celle-ci plante à la création du TCD et je ne comprends pas pourquoi...
Explication du cas: je pars d'une base de données et souhaite créer un TCD sur un nouvel onglet qui sera renommé automatiquement par la suite.
Voici une partie de mon code (en gras la partie où le code plante):
Sub TCD()
Application.ScreenUpdating = FASLE
Sheets.Add.Name = "encours moyen"
i = ActiveSheet.Name
Sheets("BD CISA").Select
a = ActiveSheet.UsedRange.Rows.Count
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BD CISA!R1C1:R" & a & "C48", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="" & i & "!R3C1", TableName:="Tableau croisé dynamique8", _
<bold>DefaultVersion:=xlPivotTableVersion14</bold>
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Période" _
)
.Orientation = xlColumnField
.Position = 1
End With
"Argument ou appel de procédure incorrect" appaait alors.
Je vous remercie vivement pour votre aide car j'ai tout essayé et je commence à désespérer...
Cordialement,
Kawa'
NB: j'ai essayé de modifier le xlPivotTableVersion14 par xlPivotTableVersion10 mais rien n'y fait !