Merci pour cet essai, mais ça ne fonctionne pas comme je voudrais car
l'évennement est bien déclanché et le code effectué mais si la valeur ne
correspond pas a ce que j'attends la sauvegarde s'effectue quand même et si
elle est bonne on boucle sur l'évennement.
Je recherche plutôt un moyen d'annuler la commande de sauvegarde.
François
----- Original Message -----
From: "Christophe Mathysen" <[EMAIL PROTECTED]>
To: <prog@fr.openoffice.org>
Sent: Tuesday, May 08, 2007 12:46 PM
Subject: Re: [prog] Gestion d'evennement
Hello,
Je pense qu'un truc du genre devrait te mettre sur la piste
sub test
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
laValeur =
thisComponent.currentController.activesheet.getCellRangeByName("d58").value
Attest =
thisComponent.currentController.activesheet.getCellRangeByName("j5").string
If Attest = "N" then
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
elseif Attest = "" then
MsgBox( "Veuillez compléter le rôle linguistique. / Gelieve de taalrol
in te vullen." )
End if
end sub
Ensuite tu modifies la barre d'outil (Personaliser la barre
d'outils>Evénements>Enregistrement du document) en assignant la macro
que tu as créé.
Christophe
Le mar 08/05/2007 à 10:50, SEGUIN François a écrit :
Bonjour,
Je souhaite contrôler des données avant d'enregister un document.
J'utilise l'évennement "Enregistrement du document" qui me permet de
savoir que l'utilisateur va enregistrer son document. Mais J'aimerai que
cet évennement n'execute pas l'enregistrement si le contrôle des données
n'est pas correct.
Y a t'il un moyen?
F.SEGUIN
Christophe Mathysen
Fédération des Mutualités Socialistes du Brabant
Tel 02 506 96 11 - Fax 02 514 59 26
http://www.fmsb.be
---------------------------------------------------------------------------------------
Orange vous informe que cet e-mail a ete controle par l'anti-virus mail.
Aucun virus connu a ce jour par nos services n'a ete detecte.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]