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

Bonjour,
La version 5.3.1.2 contient un bug. 
Le code Basic n'est pas correctement interprété. 
Avez-vous la possibilité de tester le code avec une version antérieure de LO ?

Cordialement. 

Didier Dorange-Pattoret


> Le 18 mars 2017 à 11:41, dvd69 <mensch69@hotmail.com> a écrit :
>
> 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


-- 
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