Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[Philippe Tulliez]

Bonjour 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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
• ...