Bonjour,

Voici une macro qui sert à afficher une boite de dialogue contenant un message.

 Sub Message
     Dim oDlgMessage As Object
     oDlgMessage = CreateUnoDialog(DialogLibraries.Standard.DLG_Message )
     oDlgMessage.execute() 
     oDlgMessage.dispose()
 End Sub 

Exécutée seule, cette macro fonctionne.
Mais assignée à l'ouverture d'un document, elle génère l'erreur suivante : 

 "Action non supportée. Appel de procédure incorrect. "
Que faire pour obtenir l'effet recherché à l'ouverture du document ?

Merci par avance. Cordialement.

Jean-Claude N'DOUNGA

Répondre à