Bonjour
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")
tu peux t'affranchir du servicemanager et utilisant soit StarDesktop
comem déjà indiqué ou en le recontruisant
desktop = createUNOService("com.sun.star.frame.Desktop")
Les createObject sont à eviter et en font pas partie de l'univers OOo
mais de la communication COM sous windows
POur OOo c'est CreateUNOService qu'il faut reagrder (et ses petits
freres tels que createUNOStrcut et getProcessServiceManager, voir l'aide)
For i = 1 To Desktop.Frames.getCount 'compte le nombre de
tu vas de 0 à count-1
fenêtres OOo ouvertes
Desktop.getFrames.getByIndex(0).Close (False)
tu pourrais faire Desktop.frames(0).close
D'avance merci pour l'éclairage de ma lanterne...
Bon courage
Laurent
--
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org -
http://www.indesko.com
Nuxeo Enterprise Content Management >> http://www.nuxeo.com -
http://www.nuxeo.org
Livre "Programmation OpenOffice.org", Eyrolles 2004-2006
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
