VBA TCD Erreur d'excécution 5

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
 

Discussions similaires

Réponses
1
Affichages
495