OVH Cloud OVH Cloud

TDC sous Excel 2003 pas compatible Excel 2000

1 réponse
Avatar
Sofien Djelassi
Bonjour,

je me suis fais une petite macro qui compile des données et les restitue
sous forme de tableau croisé dynamique.
Le tableau de données n'ayant jamais le même nombre de ligne, je définie
préalablement au croisé dynamique ma zone de données.
Ca fonctionne très bien sur Excel 2003 mais plante dès le début sur 2000 (au
niveau du sourcedata).

Voici mon code :

Dim Maplage As Range

Set Maplage = ActiveSheet.Cells(4, 1).CurrentRegion


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Maplage).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
...


Merci d'avance pour votre aide
--
Sofien

1 réponse

Avatar
MichDenis
Bonjour Sofien,

Dans le code que tu as soumis : Il faudrait impérativement que tu remplaces : xlPivotTableVersion10 qui correspond à
excel 2002 ... et que tu vérifies la constante appropriée pour excel 2000. Comme je suis sous excel 2003, je ne peux pas
effectuer la vérification ... Peut-être peux-tu simplement effacer tout simplement le paramètre : " , DefaultVersion:=
xlPivotTableVersion10 "


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Maplage).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10


Salutations!


"Sofien Djelassi" a écrit dans le message de news:

Bonjour,

je me suis fais une petite macro qui compile des données et les restitue
sous forme de tableau croisé dynamique.
Le tableau de données n'ayant jamais le même nombre de ligne, je définie
préalablement au croisé dynamique ma zone de données.
Ca fonctionne très bien sur Excel 2003 mais plante dès le début sur 2000 (au
niveau du sourcedata).

Voici mon code :

Dim Maplage As Range

Set Maplage = ActiveSheet.Cells(4, 1).CurrentRegion


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Maplage).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
...


Merci d'avance pour votre aide
--
Sofien