[fr-users] Macro Calc qui ne marche plus en V5

Bonjour,

Le code ci-dessous affiche une boite de dialogue et en récupère les 
éléments.

Ce code fonctionnait en version 3.6 et en version 4. Depuis le 
déploiement d'une version 5, il plante à la ligne suivante (Variable 
objet non définie)

oPDialog.getControl("DateField1").setDate(CDateToIso(Date))

Si je désactive cette ligne, le reste fonctionne bien. (avec un message 
d'erreur sur la validation de la boite, logique)

J'ai cherché dans l'aide la fonction CDateToIso qui existe toujours. 
Même topo avec Now à la place de Date.

J'ai tenté de déclarer oPDialog as object mais rien de mieux.

J'ai tenté également de charger d'autres librairies (extrait de l'aide) 
sans rien de mieux.

Avez-vous une idée de ce qui pourrait ne plus lui plaire avec cette 
ligne ? Le contrôle DateField1 est bien toujours présent. Rien n'a été 
modifié.

Merci d'avance pour vos pistes.

Marie-Jo

------------------------------------------------------------------------------------------------------

function parametrage_interface()
'
Dim oCombobox As Object
Dim Choix_sequence(1) As String

OK = True
Annuler = False

DialogLibraries.LoadLibrary("Standard")

oDialog = DialogLibraries.Standard.Dialog1
oPDialog = CreateUnoDialog(oDialog)
'
exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
'
oPDialog.getControl("Label1").Text = "Date de la garde : "
oPDialog.getControl("Label1").Model.Align = 2
oPDialog.getControl("Label2").Text = "Séquence : "
oPDialog.getControl("Label2").Model.Align = 2
oPDialog.setTitle("Création de la feuille de consignes") ' Titre boîte 
dialogue


'oPDialog.getControl("DateField1").setDate(CDateToIso(Date)) 'la macro 
plante ici

Choix_sequence(0) = "JOUR"
Choix_sequence(1) = "NUIT"
oComboBox = oPDialog.getControl("ComboBox1")
oComboBox.addItems(Choix_sequence(),0)
oPDialog.GetControl("CommandButton2").Label ="Imprimer la feuille"
oPDialog.GetControl("CommandButton3").Label ="Rafraichir les consignes"

'
'AFFICHE LA BOITE DE DIALOGUE
iDialogResult = oPDialog.Execute()


--
Marie jo KOPP CASTINEL,
Directrice

Société OpenGo
Tél :   04 74 57 09 86
Gsm :   06 79 78 09 15

http://www.opengo.fr
369 Chemin du Verger 38200 Villette de Vienne

Soutenez la bureautique libre
http://www.lamouette.org
Membre du projet LibreOffice
http://fr.libreoffice.org



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