Imposer la date système dans un datefield

fr-users
#1

Bonjour,
Est-il possible d'imposer la date système dans un DateField, soit dans les propriétés
soit avec du code ?
Cordialement
Michel

#2

Bonjour Michel,

Bonjour,
Est-il possible d'imposer la date système dans un DateField, soit dans
les propriétés
soit avec du code ?

Que ce soit dans les propriétés ou dans un champ date, c'est celle du
système qui est récupérée.
Mais ce n'est peut-être pas ta question ?
À bientôt
Sophie

#3

Mille excuses
Encore une fois je n'ai pas fait le ménage dans mes applis et effectivement la zone date des propriétés n'était pas vide et contenait une date.
Mais ma question subsiste si je veux imposer une date d'affichage à partir du code (récupération d'une variable par exemple).
Cordialement
Michel

#4

Je ne comprends toujours pas ta question :slight_smile: J'ai supposé que tu étais
sous Writer. Donc soit tu insères une variable que tu définis au format
date, et donc ta variable c'est la date. Soit tu insères la date système
(fixe ou variable en fonction de l'ouverture du document) à partir d'un
champ date.
Sinon, je ne vois pas de quel code tu parles.

À bientôt
Sophie

#5

Il s'agit d'un contrôle de formulaire dans calc, il existe dans VBA une propriété sur ce type de champ qui permet de passer
une date en variable à ce contrôle, ma question est de savoir si cette propriété peut être manipulée en LO Basic.
Cordialement
Michel

#6

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

#7

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

#8

Bonjour à tous,

Y a-t-il un moyen d'agrandir la case de la "case à cocher" , et donc du
coche accessoirement, du contrôle de formulaire ?

Merci d'avance

Michel

#9

Bonjour

Blanchard Michel wrote

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

Ah ben oui forcément, j'avais répondu sur la base de :

Blanchard Michel wrote

Il s'agit d'un contrôle de formulaire dans calc

Un formulaire n'est pas un "dialogue" et vice-versa...

Blanchard Michel wrote

J'ai fait une tentative d'assigner le code ci-dessous à un bouton
d'ouverture du Dlg
...
Pas d'erreur mais le datefield contient toujours par défaut la date
système.

Tu as mal ordonné tes lignes, essaie :

     DialogLibraries.LoadLibrary("Standard")
     MonDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
     MonControle = MonDlg.getControl("DateField1")
     MonControle.Text = "01/04/2012"
' MonControle.Date = 20120401
     MonDlg.Execute()

Cordialement
Pierre-Yves

#10

Avec mes excuses, étant formateur bureautique et devant jongler entre VBA et LOB, mes neurones déjà fatigués par l'âge ont du mal à se reconnecter.
Pour microsoft la notion de Formulaire n'est pas la même.
Sinon merci pour ton rectificatif, le code répond correctement.
En ce qui concerne le renseignement d'une combobox avec le nom des feuilles du classeur, il s'agit d'une demande exprimée explicitement dans une application,
donc passage par LOB.
Cordialement
Michel