VBA TCD Erreur d'excécution 5

[Vincent_du_53]

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

 

[Jacou]

Re : VBA TCD Erreur d'excécution 5

bonjour Vincent,

"ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _"

Pourquoi y a-t-il un espace entre xlDa et tabase ?

Bonne soirée

 

[JCGL]

Re : VBA TCD Erreur d'excécution 5

Bonjour à tous,

As-tu vérifié qu'XL2010 soit la version 14 ?

A+ à tous

 

[JCGL]

Re : VBA TCD Erreur d'excécution 5

Bonjour à tous,

As-tu vérifié qu'XL2010 soit la version 14 ?
BasePrépa ne devrait il pas être entre " : "BasePrépa" ?

A+ à tous

 

[Vincent_du_53]

Re : VBA TCD Erreur d'excécution 5

Bonjour Jacou,

dans la macro, il n'y a pas d'espace, il a dû "s'immiscer" lors de la copie du code dans le forum !

dommage, une piste qui disparaît !

A+

 

[Vincent_du_53]

Re : VBA TCD Erreur d'excécution 5

Bonjour JCGL

j'ai essayé avec les "", et même type d'erreur.

par contre, concernant "Version14", cela a été "écrit" par l'enregistreur de macro
Comment m'assurer qu'XL2010 soit la version 14 ?

A+

 

[JCGL]

Re : VBA TCD Erreur d'excécution 5

Bonjour à tous,

Je te parle des guillemets "BasePrépa"

A+ à tous