Une nouvelle journée et une nouvelle question

Dans ma migration de macro Excel vers Calc, j'ai un petit soucis,

sous excel j'ai : ... Sheets("Graphiques").Select ActiveSheet.PrintPreview reponse = MsgBox("Une question ?", vbYesNo) ...

que je traduit en Macro OOo par :

... oRange = ThisComponent.Sheets("Graphiques").getCellRangeByName("A1") Thiscomponent.CurrentController.Select(oRange) dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:PrintPreview", "", 0, Array()) reponse = MsgBox("Une Question ?", 32 + 4) ' 32 = "?" 4 = "oui / non" ...

Mon problème vient que sous Excel, l'apercu bloque l'éxécution de la macro, donc la question est posé après que l'on est fermé l'apercu, alors que sous Calc, l'apercu n'est pas bloquant, et dans mon cas, la question est posé directement, et dès fois, l'apercu ne se fait pas !!!

Existe t-il une autre méthode pour faire lancer un apercu qui serait bloquant ? existe-t-il un moyen d'attendre que l'apercu se faire ?

Merci d'avance Jean-Philippe