Chers Ooo programeeurs :)

je vous fais part d'un mail que j'ai une sur una autre liste qui concerne l'utilisaiton des macros openoffice.

------------------------------------ Bonjour,

Puisque nous en sommes à comparer les mérites respectifs des openoffice vs ms office. J'ai une question à poser.

Utilisateur d'excel depuis les toutes premières versions j'ai été épouvanté par office 2007 et particulièrement sa version d'excel qui a réussi à rendre un programme que je connaissais plutôt bien en un bazar incompréhensible. Au bout d'une heure j'ai remis mon excel XP.

Mais cela m'a décidé à faire un essai de calc d'openoffice, quitte à réécrire les centaines de lignes de macro que j'avais pour excel.

Il s'agit pour la plupart de fonctions servant à des calculs astro. Le basic est assez semblable à celui de microsoft et on peut presque copier/coller les fonctions. Par contre au début de la macro j'ai une sous routine (Sub - End Sub) qui lit entre autres les coefficients planetaires (c'est à dire les 2430 lignes à la fin du bouquin de J. Meeus) sur le disque et les envoie dans une table. Voir ci-dessous.

Le problème est que ces variables ne sont pas accessibles par une macro fonction ex function Planet(JourJulie,VENUS) ..... End Function Elles sont remises à zéro. Si j'incorpore mon calcul de planète à la routine Sub INIT çà marche, mais je veux pouvoir utiliser ces paramètres dans différentes macro fonctions sans devoir à chaque fois les reprendre sur le disque

J'ai essayé les options Static, Public etc .. mais je n'arrive à rien.

Avec le Visual Basic de M$ aucun problème !

Parmi tous nos fans d'openoffice quelqu'un aurait-il une idée ?

Comme le sujet risque de ne pas passionner grand monde, mieux vaut sans doute répondre en privé.

Luc

Dim TP(1 To 2430, 1 To 3) As Double Dim TNDX(1 To 19, 1 To 8) As Integer Dim TL(1 To 1324, 1 To 3) As Double Dim TLB(1 To 560, 1 To 3) As Double Dim TABTD(1 To 196, 1 To 2) As Double Dim TCON(1 To 358, 1 To 4) As Variant

'Remplissage des tables à l'ouverture de la Macro Sub INIT Open "C:\ASTROPAR.DAT" For input Access Read As 1 For i = 1 To 2430 For j = 1 To 3 input #1, , TP(i, j) Next j Next i For i = 1 To 19 For j = 1 To 8 input #1, , TNDX(i, j) Next j Next i For i = 1 To 1324 For j = 1 To 3 input #1, , TL(i, j) Next j Next i For i = 1 To 560 For j = 1 To 3 input #1, , TLB(i, j) Next j Next i For i = 1 To 196 For j = 1 To 2 input #1, , TABTD(i, j) Next j Next i For i = 1 To 358 For j = 1 To 4 input #1, , TCON(i, j) Next j Next i Close #1 End Sub

-------------------------------------------- vous comprenez la question sans doutes mieux que moi :) j'ai cru comprendre un pb de déclaration et d'espace de nommage.

Comment faire pour répondre à sa problématique ?

Merci d'avance !

ciels clairs.

JB