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 <mensc...@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+unsubscr...@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+unsubscr...@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