FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017  Ajouter une question

 

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.


SommaireProgrammation OBasicLes boîtes de dialogue BASICLes champs Date / Calendriers (2)
précédent sommaire suivant
 

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'--- 
'La boîte de dialogue est composée: 
'  d'un objet CommandButton 
'  d'un objet DateField (calendrier) dont le format d'affichage est JJ.MM.AAAA, 
'  et d'une propriété "déroulante" = oui. 
'--- 
  
Option Explicit 
  
Global oDialog1 As Object 
  
Sub AfficheBoiteDeDialogue() 
  DialogLibraries.LoadLibrary( "Standard" ) 
  'Dialog1 est le nom de la Form  
  '(Clic droit sur l'objet / propriétés / onglet Général / Nom) 
  oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 ) 
  
  '--- Indique la date qui va s'afficher par défaut dans le contrôle "DateField1" 
  oDialog1.getControl("DateField1").Date = 20070101 'AAAAMMJJ 
  
  '--- Permet de définir une date mini et maxi utilisable dans le calendrier 
  oDialog1.getControl("DateField1").Model.DateMin = 20070101 
  oDialog1.getControl("DateField1").Model.DateMax = 20071231 
  '--- 
  
  'Affiche la boîte de dialogue 
  oDialog1.Execute() 
End Sub 
  
  
'--- La macro est rattachée au CommandButton de la boite de dialogue --- 
'La date sélectionnée dans le DateField est insérée dans la cellule A2 de la feuille de calcul. 
Sub InsertionDate() 
  Dim Feuille As Object 
  Dim oNumberFormats As Variant 
  Dim Loc As New com.sun.star.lang.Locale 
  
  'Définit la 1ere feuille du classeur 
  Feuille = ThisComponent.Sheets(0) 
  
  oNumberFormats = ThisComponent.NumberFormats  
  
  'Insére la date sélectionnée dans la cellule A2 
  With Feuille.getCellByPosition( 0 , 1 ) 
    'spécifie le format de la cellule 
    .NumberFormat = oNumberFormats.getStandardFormat( com.sun.star.util.NumberFormat.DATE , Loc ) 
    .Value = CDateFromIso( oDialog1.getControl("DateField1").Date ) 
  End With 
End Sub

Mis à jour le 2 août 2013 SilkyRoad

Code vb : Sélectionner tout
oDialog1.getControl("DateField1").Date = CDateToISO( Date )

Mis à jour le 2 août 2013 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2017 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Contacter le responsable de la rubrique OpenOffice & LibreOffice