[fr-users] macro sous calc: erreur que je ne comprends pas

bonjour,

je debute avec les macros sous calc et de ce fait, je reprends des exemples
que je trouve sur le net.
a partir de ce site entre autre:
http://christianwtd.free.fr/index.php?rubrique=BasDialog02

j'execute dialogue003 ds mon calc, Version: 5.3.1.2 sous xenial, 
j'ai l'erreur suivante:

/Erreur d'exécution BASIC.
Variable d'objet non définie./

sur la ligne: /oTxt.Text = "Voulez-vous être augmenté ?"/

de

    Sub QuestionAugmentation
      Dim oDialog As Object, oPDialog As Object
      Dim oRetourOui As Object, oRetourNon As Object
      Dim oTxt As object
     
      DialogLibraries.LoadLibrary("Standard")
      oDialog = DialogLibraries.Standard.Dialog1
      oPDialog = CreateUnoDialog(oDialog)
      '
      oTxt = oPDialog.getControl("Label1")
      oTxt.Text = "Voulez-vous être augmenté ?"
      oRetourOui = oPDialog.getControl("CommandButton1")
      oRetourOui.Label = "OUI"
      '
      oRetourNon = oPDialog.getControl("CommandButton2")
      oRetourNon.Label = "NON"
      '
      oPDialog.setTitle("Petit test")
      '
      iDialogResult = oPDialog.Execute()
      '
      If iDialogResult = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
Then
        MsgBox("Va donc bosser !")
      Else
        MsgBox("Félicitations")
      Endif
    End Sub

quelqu'un aurait l'amabilite de m'expliquer le pourquoi. merci



--
View this message in context: 
http://nabble.documentfoundation.org/macro-sous-calc-erreur-que-je-ne-comprends-pas-tp4210469.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés