TCD et vba

[philppe27]

Bonsoir,

Je mets l'enregistreur de macro et je crée un tableau croisé dynamique, l'enregistreur de macro enregistre :
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BASE!L1C1:L31C19", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="SYNTHCHARGE!L11C6", TableName:= _
"Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion10
Sheets("SYNTHCHARGE").Select
Cells(11, 6).Select

je supprime mon TCD je lance la macro enregistrée et j'ai une :
erreur d'execution '5'

Quelqu'un pourrait-il m'expliquer ce qui se passe ?

Merci d'avance

 

[Celeda]

Re : TCD et vba

Bonsoir,

Je ne sais pas si ce lien pourra t'aider mais il y a un fichier (29/09 9h45) de Pierrot qui crée un tcd par macro et tu trouveras peut-être une solution à ton besoin.
https://www.excel-downloads.com/threads/vba-filtre-date-tcd.149712/

 

[Fred0o]

Re : TCD et vba

Bonsoir Philippe,

Essaie ce code qui fonctionne chez moi :

 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Base!R1C1:R31C19").CreatePivotTable TableDestination:= _
"[Classeur1]SYNTHCHARGE!R11C6", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
Sheets("SYNTHCHARGE").Select
Cells(11, 6).Select

A+