[Résolu] savoir si un document OOo est déjà ouvert

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Yaone
Membre OOrganisé
Membre OOrganisé
Messages : 94
Inscription : 04 avr. 2006 13:48

[Résolu] savoir si un document OOo est déjà ouvert

Message par Yaone »

Bonjour,

Est-ce qu'une fonction qui permet de savoir si un document OpenOffice (par exemple, un fichier calc) est déjà ouvert, existe ?
Si oui, c'est quoi ?
Si non, je vais devoir me débrouiller autrement. :roll:

Merci.
Dernière modification par Yaone le 25 avr. 2006 10:28, modifié 1 fois.
OOo 2.0.1 sous WinXP SP2
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25602
Inscription : 03 mars 2006 07:45
Localisation : 127.0.0.1

Message par Dude »

Peut être faire un

Code : Tout sélectionner

on error goto ...
lors de l'ouverture du fichier
Poser une question, c'est bien. Répondre aux autres, c'est encore mieux.
Améliorez AOO et votez pour les issues
Yaone
Membre OOrganisé
Membre OOrganisé
Messages : 94
Inscription : 04 avr. 2006 13:48

Message par Yaone »

C'est pour gérer une erreur ça ?
Mais ce n'est pas vraiment ça que je veux.

Je m'explique, j'aimerais utiliser une fonction qui me retourne un booléen pour savoir si un fichier Calc, par exemple, est déjà ouvert. En gros, pour continuer à l'utiliser sans avoir à ouvrir un nouveau fichier calc.
C'est pour faire des transferts de données.
OOo 2.0.1 sous WinXP SP2
Avatar de l’utilisateur
cris59
Membre enthOOusiaste
Membre enthOOusiaste
Messages : 482
Inscription : 20 mars 2006 15:15
Localisation : Paris

Message par cris59 »

Code : Tout sélectionner

sub presenceFichier(monAdresse As String)
' déclarations
dim optFichier() as new com.sun.star.beans.PropertyValue
lesDocs = Stardesktop.Components.createEnumeration
docOuvert = FALSE
docAdresse = convertToURL(monAdresse)
while lesDocs.hasMoreElements
	leDoc = lesDocs.nextElement
	if leDoc.URL = docAdresse then
		docOuvert = TRUE
		msgbox "le doc est ouvert"
	end if	
wend
if NOT docOuvert then
	On Error Goto DocErreur
	nouvDoc = Stardesktop.LoadComponentFromURL(docAdresse, "_blank", 0, optFichier)
end if
exit sub

DocErreur:
		msgbox "le document n'existe pas"
end sub 
cris59
WinXP PRO SP2 avec OOo2.2 & Vista avec OOo2.3.1
& Debian avec OOo2.2

http://www.cpserv.net/
Yaone
Membre OOrganisé
Membre OOrganisé
Messages : 94
Inscription : 04 avr. 2006 13:48

Message par Yaone »

Ca marche ^^
Merci beaucoup. :D
OOo 2.0.1 sous WinXP SP2