Ooo (Calc), afficher message lors de la fermeture document

[Bernard BAUDOIN]

Bonjour Bil,

Si un seul classeur est ouvert, et que l’on exécute Fichier/Fermer, le classeur et Open Office sont fermés.
Ci-joint fichier sur lequel j’ai indiqué des tests lors de la fermeture des fichiers.
http://www.excel-pratique.com/~files/doc/test_02.ods
Je vais essayer d’améliorer le message en donnant la possibilité de revenir sur le fichier.
Cordialement
Bernard

[bil]

Bonjour Bernard

Je ne peux tester la macro car la macro n'apparaît pas, comme sur le premier fichier. Je ne sais pas pourquoi ...

J'ai bien le fichier avec FEUIILLE TEST N0.02
FEUILLE TEST POUR SAUVEGARDE
AFFICHE UN MESSAGE

ETC...avec le message 1er Essai et 2è Essai...

Tu peux mettre la macro sur le thread stp que je teste cette nouvelle macro.

Merci d'avance.

[Bernard BAUDOIN]

Bonsoir Bil,

Pour la macro, j’ai simplement supprimé une ligne.

sub fermer
Msgbox("Ce document va se fermer")
document = ThisComponent
If (HasUnoInterfaces(document,"com.sun.star.util.XCloseable") = TRUE) Then
document.Store()
End If
End Sub

Bon test
Cordialement
Bernard

[bil]

Bonjour Bernard

Je viens de tester rapidement ce matin la macro, ça a l'air d'être OK, merci.

Si il y a souci, je re-posterai