Vincent_du_53
XLDnaute Nouveau
Bonjour,
j'ai utilisé l'enregistrerur de macro pour créer un TCD
Mais, lorsque j'ai souhaité lancer cette macro, j'ai eu le message d'erreur suivant : "erreur excécutuin 5"
Voici le code :
Sheets("Prépa").Select
NbLPR4 = Range("A10").CurrentRegion.Rows.Count
NbLPR4 = NbLPR4 + 8
ActiveWorkbook.Names.Add Name:="BasePrépa", RefersToR1C1:= _
"=Prépa!R10C1:R" & NbLPR4 & "C18"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
BasePrépa, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Prépa synt ent!R3C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
Le message pointe sur la dernière ligne de code.
J'ai déjà enregistré d'autre création de TCD qui ne pose pas Pb, je ne comprend pas !!!
Qui peut me renseigner ?
Merci d'avance
j'ai utilisé l'enregistrerur de macro pour créer un TCD
Mais, lorsque j'ai souhaité lancer cette macro, j'ai eu le message d'erreur suivant : "erreur excécutuin 5"
Voici le code :
Sheets("Prépa").Select
NbLPR4 = Range("A10").CurrentRegion.Rows.Count
NbLPR4 = NbLPR4 + 8
ActiveWorkbook.Names.Add Name:="BasePrépa", RefersToR1C1:= _
"=Prépa!R10C1:R" & NbLPR4 & "C18"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
BasePrépa, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Prépa synt ent!R3C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
Le message pointe sur la dernière ligne de code.
J'ai déjà enregistré d'autre création de TCD qui ne pose pas Pb, je ne comprend pas !!!
Qui peut me renseigner ?
Merci d'avance