Re-bonjour
Suite à la résolution rapide et efficace de mon précédent problème, je me tourne à nouveau vers vous, pour lever le dernier obstacle au bon fonctionnement de mon projet.
Je précise que j'utilise la version 2003 d'Excel. Par conséquent les macros (concernant les TCD) créées sous 2000 ne fonctionnent pas.
Lorsque je crée une macro pour l'élaboration d'un TCD à plage fixe, j'ai ceci :
Citation:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
''Historique relations clients'!R3C1:R44C5').CreatePivotTable TableDestination _
:=''[Projet VBA - 15-12.xls]TCD - Analyse clientèle'!R3C3', TableName:= _
'Tableau croisé dynamique1', DefaultVersion:=xlPivotTableVersion10
|
Maintenant, pour un TCD à plage variable j'ai tenté ceci:
Citation:
Range('A3').CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
Selection).CreatePivotTable TableDestination _
:=''[Projet VBA - 15-12.xls]TCD - Analyse clientèle'!R3C3', TableName:= _
'Tableau croisé dynamique1', DefaultVersion:=xlPivotTableVersion10
|
Et ceci:
Citation:
dim lastrow
lastrow = range('A3').end(xldown).row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
''Historique relations clients'!R3C1:R' & lastrow & 'C5').CreatePivotTable TableDestination _
:=''[Projet VBA - 15-12.xls]TCD - Analyse clientèle'!R3C3', TableName:= _
'Tableau croisé dynamique1', DefaultVersion:=xlPivotTableVersion10
|
Dans les 2 derniers cas j'ai droit au message d'erreur :
'Erreur d'éxécution '1004'. Impossible de lire la propriété PivotTables de la classe WorkSheet.'
Pouvez-vous m'aider?