Date: prev next · Thread: first prev next last
2012 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.