Re: [fr-users] Re: Imposer la date système dans un datefield

Le 15/11/2012 10:39, pierre-yves samyn a écrit :
> Bonjour
>
> Tu peux modifier la propriété Date ou la propriété Text du contrôle.
> Par exemple :
>
> dim LOClasseur as object
> dim LOFeuille as object
> dim LOForm as object
> dim LOCtrl as object
>
> LOClasseur = thiscomponent
> LOFeuille = LOClasseur.sheets.getByName("Feuille1")
> LOForm = LOFeuille.drawPage.Forms.getByName("Formulaire")
> LOCtrl = LOForm.getByName("Champ de date 1")
> LOCtrl.Text = "01/04/12"
> 'LOCtrl.Date = 20120401
>
>
> Comme l'exemple le montre, Text est ici au format français, Date
> est un format numérique "long" sous la forme AAAAMMJJ.
>
> Pour info. sur une utilisation "dans l'autre sens" (lier une cellule à un
> contrôle
> Calendrier) voir la page du wiki:
> http://wiki.documentfoundation.org/Macros/Calc/007/fr
>
> Cordialement
> Pierre-Yves
>
>
>
> --
> View this message in context: 
> http://nabble.documentfoundation.org/Imposer-la-date-systeme-dans-un-datefield-tp4017706p4018686.html
> Sent from the Users mailing list archive at Nabble.com.
Bonjour,
En partant de ton code j'ai une erreur sur la commande ci-dessous :

*/LOForm = LOFeuille.drawPage.Forms.getByName("Formulaire") /**

*Il semble que LOB ne reconnait pas "Forms"*
*
J'ai fait une tentative d'assigner le code ci-dessous à un bouton 
d'ouverture du Dlg :

Sub ouvr_dlg()
    Dim MonDlg As Object
    Dim MonControle As Object
    DialogLibraries.LoadLibrary("Standard")
    MonDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
    MonDlg.Execute()
    MonControle = MonDlg.getControl("DateField1")
    MonControle.Text = "01/04/2012"
    MonDlg.dispose()
End Sub

Pas d'erreur mais le datefield contient toujours par défaut la date système.
Existe-t-il une autre piste ?
Cordialement
Michel


--
Envoyez un mail à users+help@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