----- Original Message ----- From: "Alpha BETA" <bet...@free.fr> To: <use...@fr.openoffice.org> Sent: Thursday, August 05, 2004 4:33 PM Subject: [users-fr] Gestion des messages d'Alerte Comment faire pour les désactiver?

Bonjour à tous,

Sous Microsoft, j'avais l'habitude en manipulant des classeurs excel de supprimer les messages d'alertes, plutôt que de devoir cliquer sur OK après la grande question "Etes-vous sûr?".

Sous OO , je n'y arrive pas du tout.

Avec Xray et le guide du programmeur, j'ai mis en évidence quelque chose du genre : .SetPropertyValue("ErrorAlertStyle", com.sun.star.sheet.validationAlertStyle.stop) Mais cela ne marche pas.

Quelqu'un aurait-il la solution?

A tout hasard voici ma macro et j'aimerai bien éviter le message de confirmation.

sub NouvSxcSupp2F ' Suite à la création d'un nouveau classeur supprime les pages 2 et 3

' variables nécessaires Dim document as object Dim dispatcher as object ' Document = ThisComponent.CurrentController.Frame Dispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper") ' permet d'identifier le type de fichier en cours s'arrête si non calc If right(Thiscomponent.DocumentInfo.MimeType,4)<>"calc" then msgbox ("Cette fonction est spécifique à l'usage de classeur sxc." & _ string(2,13) & " Or vous n'avez pas à faire à un classeur sxc!",48, _ string(23,32) & _ "INTERRUPTION FORCEE DE L'EXECUTION DE LA MACRO NouvSxcSupp2F") Exit Sub End If ' selectionne toutes les feuilles du classeur sauf la première Dim args4(0) as new com.sun.star.beans.PropertyValue args4(0).Name = "Tables" args4(0).Value = Array(1,2) Dispatcher.ExecuteDispatch(Document, ".uno:SelectTables", "", 0, args4()) ' ' COMMENT FAIRE POUR DESACTIVER LE MESSAGE D'ALERTE ? ' ' supprime les feuilles sélectionnées Dispatcher.ExecuteDispatch(Document, ".uno:Remove", "", 0, Array())

End Sub