Bonjour à Tous et meilleurs voeux,
pour ma base de données, j'ai une sorte de formulaire principal qui ne
comporte que des boutons.
La plupart ouvre des formulaires, le dernier "Quitter" devrait fermer
tous les formulaires ouverts,
et si possible quitter Ooo.
j'ai trouvé sur Internet un morceau de code permettant de fermer les
fenêtres :
<code>
Dim serviceManager As Object, Desktop As Object, i As Byte
Set serviceManager = CreateObject("com.sun.star.serviceManager")
Set Desktop =
serviceManager.createInstance("com.sun.star.frame.Desktop")
For i = 1 To Desktop.Frames.getCount 'compte le nombre de
fenêtres OOo ouvertes
Desktop.getFrames.getByIndex(0).Close (False)
Next i
</code>
Sous Windows cela fonctionne (plus ou moins), sous Linux (Mandriva 2007
[avec Ooo 2.1]), j'ai
une erreur sur la ligne avec CreateObject : "Erreur lors de la création.
Impossible de charger le module.
Format non valide"
Comme je joue à l'apprenti sorcier avec l'API, je pioche à gauche et à
droite mes informations.
J'ai cru comprendre que "com.sun.star.serviceManager" servait pour faire
de l'OLE et que cela ne
fonctionne que sous Windows. Est-ce vrai ? Ai-je loupé une marche ?
D'avance merci pour l'éclairage de ma lanterne...
Jean-Luc
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
