Discussion :

[Eklaes]

Bonjour,

Je suis en train d'élaborer un petit fichier pour assurer le suivi des interventions d'un service, et je bloque sur la récupération de la date par macro.

J'ai modifié mon fichier suite aux changements apportés par la nouvelle version. Toutefois, je n'arrive à récupérer la date qu'au format texte, et donc dans un format qui ne convient pas à ce que je veux en faire (recherche sur date et tri sur date).

Je me tourne donc vers vous pour me donner quelques pistes afin de résoudre mon problème,

Par avance merci à ceux qui me répondront,

P.S. : Ci-dessous un fichier d'essai, qui correspond à ce que j'ai déjà réalisé.

[zoom61]

C'est normal, tu ne récupères que du texte, il te suffit ensuite de le convertir avec par exemple la fonction Format(date,"YYYY-MM-DD").

[Eklaes]

Bonjour,

J'ai bien pris note de votre réponse et je vous en remercie.

J'ai réussi à paramétrer la propriété Date avec les instructions que vous avez fournies. Toutefois, j'ai un problème lors du transfert de la date à la cellule de mon tableau. En effet, je récupère une date (au bon format soit dit en passant), mais elle ne correspond pas du tout à la date spécifiée dans le formulaire.

Je vous joint donc le fichier après mise en place de la propriété Date.

En vous remerciant par avance,

[madvic]

Essaye ça :

Code :

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

Dlg.getControl("DateField1").getDate()

Utilises Xray pour explorer les objets et trouver les bonne méthodes ;-)
https://forum.openoffice.org/fr/foru...pic.php?t=3234
http://bernard.marcelly.perso.sfr.fr/index.html
https://wiki.documentfoundation.org/Macros/fr

Bon courage

[Eklaes]

Bonjour à tous,

Tout d'abord merci pour vos conseils, ils m'ont été très utile.

J'ai résolu mon problème en modifiant cette partie du code

Code :

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

1
2
3
4
5
6
 
oNumberFormats = ThisComponent.NumberFormats
With MaFeuille.getCellRangeByName("B" & nLig)
    .NumberFormat = oNumberFormats.getStandardFormat( com.sun.star.util.NumberFormat.DATE , Loc )
    .Value = CDateFromIso(Dlg.getControl("DateField1").Date)
End With

par

Code :

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

1
2
3
4
5
6
 
oNumberFormats = ThisComponent.NumberFormats
With MaFeuille.getCellRangeByName("B" & nLig)
    .NumberFormat = oNumberFormats.getStandardFormat( com.sun.star.util.NumberFormat.DATE , Loc )
    .Value = CDateFromUnoDate(Dlg.getControl("DateField1").Date)
End With

et cela fonctionne exactement comme je le voulais.

Le problème de format de date portait juste sur la fonction "CDateToISO" qui convertissait le format YYYYMMDD vers une variable date, alors que "CDateFromUnoDate" convertit la date au format interne de libreoffice (ce qui l'affiche correctement).

Je joins le fichier corrigé (si ça peut aider quelques personnes).

Je passe mon problème en résolu,

Merci à tous.