Compatibilité VBA entre office 2003 et 2000

[adebrux]

Salut Le forum,

Ca y est, j'ai enfin fini mon programme de planification de prod pour mo client. Tous les tests sur mon PC étaient OK, je suis do,nc parti le voir pour l'install tout sourire, pensant à une formalité. K'installation se passe fort bien, puis vient l'heure fatidique du test... :unsure:
Et là, patatra, ce que je n'avait pas prévu à savoir que son système était toujours à base de Windos millenium et office 2000, arrive.
ET comme mes macro de TCD ont été réalisés à partir des exemple 2003, et ben, y'a rien qui marche. :angry:
J'ai des erreurs à chaque ligne. Le probleme c'est que le seul crénaux que j'aurais pour modifier tout ca sur son PC c'est le dimanche... Comme j'aspire à un week end normal c'est pas possible.

Je fais donc appelle à vos immenses connaissances pour savoir si l'un d'netre vosu aurait des codes VBA de creation de TCD avec windows 2000 pour que je puisse faire mon adaptation.

D'ava,ce merci de votre aide.

A+

Arnaud

 

[AV]

Ave,

Un conseil : Enregistrer et tester sous 2000 car la compatibilité descendante et sujette à quelques aléas alors que celle ascendante ne pose quasiment aucun problème.
propriétés nouvelles et Arguments nouveau parmi des méthodes existantes
Sans tester, tu risques d'avoir du mal à corriger une version XL2003 pour qu'elle soit compatible avec XL2000
Exemple de 2 macros enregistrées (brut de décoffrage) pour la création d'un TCD simple :

Sub EXCEL2000()
Range('A1').Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'Feuil1!R1C1:R20C3').CreatePivotTable TableDestination:=Range('E1'), _
TableName:='Tableau croisé dynamique3'
ActiveSheet.PivotTables('Tableau croisé dynamique3').SmallGrid = False
ActiveSheet.PivotTables('Tableau croisé dynamique3').AddFields RowFields:= _
'Noms', PageFields:='Fonctions'
ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('Valeurs'). _
Orientation = xlDataField
Application.CommandBars('PivotTable').Visible = False
End Sub

Sub EXCEL2003()
Range('A1').Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'Feuil1!R1C1:R20C3').CreatePivotTable TableDestination:= _
'[Classeur1.xls]Feuil1!R1C5', TableName:='Tableau croisé dynamique3', _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables('Tableau croisé dynamique3').AddFields RowFields:= _
'Noms', PageFields:='Fonctions'
ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('Valeurs'). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars('PivotTable').Visible = False
End Sub

AV [aaa]

 

[adebrux]

merci AV pour le code de la macro

Je sais bien que la compatibilité descendante est très aéatoire, c'est pour ca qe je me suis tourné vers vous puisque je n'ai pas de office2000 sous la main..

merci encore

Arnaud

 

[adebrux]

Salut AV,

J'ai posté un fichier d'exemple à l'adresse suivante: Lien supprimé

Je ne sais pas si tu pourras le tester, mais au moins je t'aurais mis au courant !! lol

A bientôt

Arnaud