[XL-2003] Excel ou Open Office ?

[ced92]

Bonjour,
ma société envisage de passer sous open office prochainement. Je suis donc en train de voir l'impact sur les macros qui ont été développées dans nos fichiers Excel.

A première vue, ce n'est pas trop catastrophique mais il y a quand même quelques ajustements. J'essaie de modifier le code pour avoir une version qui puisse être utilisée indifféremment sur Excel ou Open Office. Comme il y a des cas où ça ne semble pas possible, je voudrais pouvoir tester quel logiciel vient de lancer la macro pour déterminer la syntaxe à utiliser. Quelque chose du type :

Code :

1
2
3
4
5
if Application.Name = "Microsoft Excel" then
    'Code valide pour Excel
  else 
    'Code valide pour Open Office
  end if

D'où ma question : connaissez-vous un moyen pour déterminer si mon fichier xls a été ouvert par Excel ou par Open Office ? Je pensais utiliser Application.Name ou Application.Version mais ça me donne la même chose sur les deux environnements. Je peux aussi lancer une instruction qui "plante" sous OO. En cas de On error je sais que je suis sous OO mais ce n'est pas très "propre".

Si l'un de vous a une idée, je suis preneur.

Merci.

[Sclarckone]

Je suis peut-être hors-sujet mais autant que je me souvienne, le modèle objet d'OO n'est pas du tout le même que celui de Microsoft Office...comment fais-tu pour coder des applications compatibles avec les deux du coup?

Sinon je ne connais pas l'astuce pour ton problème mais pour éviter les tests inutiles, tu peux définir une compilation conditionnelle avec VBA (http://www.dailydoseofexcel.com/arch...ion-arguments/).

...si t'as beaucoup de divergences et des codes un peu lourd, ça permet d'accélérer l'exécution.

[ced92]

Bonjour Sclarckone,
les dernières versions d'OO sont capables de lire et interpréter les macros VBA....à quelques erreurs prêt ! Par exemple, je rencontre systématiquement une erreur sur l'instruction Redim Preserve pour un tableau à plusieurs dimensions. Pour que ma macro VBA fonctionne sous OO, il faut dans ce cas que déclare une première fois mon tableau sous la forme Dim tab (0,0).

[kiki29]

Salut,peut-être sur ce doc Pdf http://documentation.openoffice.org/...rBasicXref.pdf

[corona]

Bonjour,
Je suis assez d'accord avec Sclarckone et suis très attentif à ce que ced92 nous annonce car pour ma part, j'ai OOo et je n'ai jamais réussis à faire tourner mes codes VBA sur OOo Basic.
Connaissez vous ce lien Convert VBA to OpenOffice Basic ?

[ced92]

Novell et SUN travaillent sur un projet pour qu'OO puisse interpréter des macros écrites en VBA : http://wiki.services.openoffice.org/wiki/VBA

[corona]

Bonjour ced92

Envoyé par ced92

Novell et SUN travaillent sur un projet pour qu'OO puisse interpréter des macros écrites en VBA : http://wiki.services.openoffice.org/wiki/VBA

Oui, cela je l'avais lu et je crois que c'est payant mais ce qui m'a interpellé c'est ton message.

Envoyé par ced92

Bonjour Sclarckone,
les dernières versions d'OO sont capables de lire et interpréter les macros VBA....à quelques erreurs prêt ! Par exemple, je rencontre systématiquement une erreur sur l'instruction Redim Preserve pour un tableau à plusieurs dimensions. Pour que ma macro VBA fonctionne sous OO, il faut dans ce cas que déclare une première fois mon tableau sous la forme Dim tab (0,0).

Ton expérience à ce sujet m'intéresse au plus haut point.

[Arkham46]

bjr,

Code :

Option VBASupport 1

en début de module permet de coder en VBA

mais effectivement ça ne marche pas à 100%

Sinon essaye la constante de compilation VBA6

Code :

1
2
3
4
5
#IF VBA6 then
  ' code pour Office
#Else
  ' code pou OOo
#End if

VBA6 est True à partir de Office 2000
Je ne sais pas ce que ça donne en basic ooo (je ne sais même pas s'il accepte des constantes de compilation ...)

[ced92]

La constante de compilation ne fonctionne pas. Je vais creuser. Merci pour l'idée.

Pour Corona :
le code Option VBASupport 1 permet effectivement de lire une macro VBA. Après quelques tests, je trouve un certain nombre de limites, telles que :

• Redim preserve tab(0 to 2, 0 to k) ne fonctionne pas (il faut au préalable déclarer un dim tab(0,0))
• Application.ScreenUpdating = False n'est pas pris en compte
• Le .ShowAllData semble aussi poser problème
• ...

[Sclarckone]

Envoyé par ced92

Redim preserve tab(0 to 2, 0 to k) ne fonctionne pas (il faut au préalable déclarer un dim tab(0,0))

Y a pas moyen de surcharger les fonctions avec OO (auquel cas tu pourrais tester ton tableau avant de le redimensionner...)?

[Pierre Fauconnier]

Salut.

Il y a de fortes chances que le code qui utilise l'interface pose problème, car les boites de dialogue ne sont pas identiques sur Ooo et Excel.

Il faudrait passer les objets en revue, mais il y a fort à parier que des différences importantes se feront sentir.

Pour des macros "un peu costaudes", je ne suis pas certain que ce soit une bonne chose de transposer le code puis de (tenter de) résoudre les problèmes un à un au moement où ils se posent.

[corona]

Bonjour,

Envoyé par ced92

Pour Corona :
le code Option VBASupport 1 permet effectivement de lire une macro VBA. Après quelques tests, je trouve un certain nombre de limites, telles que :

• Redim preserve tab(0 to 2, 0 to k) ne fonctionne pas (il faut au préalable déclarer un dim tab(0,0))
• Application.ScreenUpdating = False n'est pas pris en compte
• Le .ShowAllData semble aussi poser problème
• ...

Merci pour le tuyau, je vais faire des tests