FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

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

oDialog1.getControl("DateField1").Date = CDateToISO( Date )