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
http://www.fmsb.be
6 messages in org.openoffice.fr.progRe: [prog] Gestion d'evennement
.sxc
