Discussion :

[Sid-Le-Bricoleur]

Bonjour,

J'ai une macro qui me permet de saisir de nouvelles données dès la première ligne vide d'une feuille.
Celle-ci s'accompagne d'une boîte de dialogue contenant un contrôle DateField, et c'est sur ce point où je rencontre un problème :

Sur la FAQ (Commment transférer la date sélectionnée dans un contrôle DateField vers une cellule de la feuille de calcul ?, le code proposé me renvoie tout simplement l'erreur "Erreur d'exécution BASIC. Variable d'objet non définie." en surlignant la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Value = CDateFromIso(BoiteDeDialogue.getControl("DateField1").Date)

Le script en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub InsertionDate()
Dim MonDoc As Object
Dim MaFeuille As Object 
Dim oNumberFormats As Variant 
Dim Loc As New com.sun.star.lang.Locale
 
MaFeuille = MonDoc.Sheets.getByName("FEUILLE") 
 
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(BoiteDeDialogue.getControl("DateField1").Date) 'La variable BoiteDeDialogue est déjà définie (associée) à la boîte de dialogue dans une autre partie du module.
End With
 
End Sub

A noter que les scripts sont quasiment les mêmes, seules quelques variables ont changé par rapport à la FAQ pour que je puisse la tester sur mon module.

J'en appelle aux modérateurs ou experts (ou @SilkyRoad qui a effectué la dernière mise à jour) pour le coup qui ont rédigé la FAQ, si vous auriez une idée du problème ?

[Sid-Le-Bricoleur]

J'ai effectué un test avec une autre variante, sans succès, avec la même erreur ("Erreur d'exécution BASIC. Valeur de propriété incorrecte.") et la même ligne surlignée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim oNumberFormats As Variant
Dim Loc As New com.sun.star.lang.Locale 
oNumberFormats = ThisComponent.NumberFormats
        
MaFeuille.getCellByPosition(9, emptyRow + 1).NumberFormat = oNumberFormats.getStandardFormat(com.sun.star.util.NumberFormat.DATE, Loc) 
MaFeuille.getCellByPosition(9, emptyRow + 1).Value = CDateFromIso(BoiteDeDialogue.getControl("DateField1").Date)

Pourtant, auparavant, mon Sub fonctionnait sur l'ajout de la date dans la cellule mais pas au bon format. Ça tenait en deux lignes (avec les variables déclarées évidemment) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DateAchat_string = BoiteDeDialogue.getControl("DateAchat").Text  
MaFeuille.getCellByPosition(9, emptyRow + 1).Value = DateAchat_string

Le résultat de ce dernier bout de code : au début des dates s'insèrent au format DD/MM/YY puis les derniers chiffres YY deviennent incohérents au fur et à mesure (= aux lignes suivantes) avant de faire apparaître une suite entière de chiffres incohérente.

[Amélie Ladoque]

Un contrôle Date dans un dialogue renvoie un entier long qui contient le format AAAAMMJJ
Je pense que ce sujet devrait répondre au problème : https://forum.openoffice.org/fr/foru...t%2A+date+calc

[Sid-Le-Bricoleur]

Un contrôle Date dans un dialogue renvoie un entier long qui contient le format AAAAMMJJ
Je pense que ce sujet devrait répondre au problème : https://forum.openoffice.org/fr/foru...t%2A+date+calc

Merci, je vais regarder ça de plus près. En attendant, j'ai envoyé un message au contributeur @SilkyRoad mais pas de réponses pour l'instant.

[Sid-Le-Bricoleur]

Un contrôle Date dans un dialogue renvoie un entier long qui contient le format AAAAMMJJ
Je pense que ce sujet devrait répondre au problème : https://forum.openoffice.org/fr/foru...t%2A+date+calc

J'ai creusé le sujet en adaptant cette bonne proposition et suis parvenu au bout de code suivant qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
        'Transfert date d'achat de l'article
        '--Formatage de la cellule où la valeur de la date d'achat sera insérée (variable DateAchat_string qui a été déclarée au-préalable au format DATE puis définie avec la ligne :  DateAchat_string = BoiteDeDialogue.getControl("DateField1").Text).
        Dim CelluleDateAchat As variant
	CelluleDateAchat = MaFeuille.getCellByPosition(9, emptyRow + 1)
        CelluleDateAchat.Numberformat = 30 '---Le "30" équivaut au format JJ/MM/AAAA mais varie en fonction du terminal et de la version LibreOffice utilisée.
	CelluleDateAchat.Value = CDate(CelluleDateAchat.String)
	'--Insertion de la valeur DateAchat_string
	MaFeuille.getCellByPosition(9, emptyRow + 1).Value = DateAchat_string

Il me fallait déterminer le .Numberformat adapté pour que ça fonctionne chez moi.

Merci !

[Sid-Le-Bricoleur]

Pour info, je n'ai toujours pas eu de réponses. J'ai même posté un message pour les modos en attente de réponse.

Je rajoute quelques liens qui pourraient être utiles pour certains :

• Date and Time Functions
• Date Field
• Insérer une date formatée dans une cellule (6.7, page 67)