Contenu | Rechercher | Menus

Annonce

Si vous avez des soucis pour rester connecté, déconnectez-vous puis reconnectez-vous depuis ce lien en cochant la case
Me connecter automatiquement lors de mes prochaines visites.

À propos de l'équipe du forum.

#1 Le 30/06/2025, à 09:18

claudius723

Macro convertisseuse

Bonjour, depuis quelques jours mes macro ne respectent plus les formats date et nombre, elles convertissent systématiquement les nombres sous la forme "06/12/1900 15:24:36"  et transforment les dates de 30/06/25 en "30/06/2025", que se passe t'il, c'est nouveau chez moi, il y a sûrement eu une mauvaise manipulation de ma part mais comment rétablir pour retrouver une bonne exécution?

Merci d'avance.


Cordialement
Claudius723

Hors ligne

#2 Le 02/07/2025, à 22:43

jpoc

Re : Macro convertisseuse

macro de quel logiciel ?

Hors ligne

#3 Le 03/07/2025, à 07:15

claudius723

Re : Macro convertisseuse

Libreoffice 24.8


Cordialement
Claudius723

Hors ligne

#4 Le 03/07/2025, à 23:05

jpoc

Re : Macro convertisseuse

si la a date est affichée au format JJ/MM/AAAA dans la barre de formule mais au format JJ/MM/AA dans la cellule (en environnement français ).
Faire un style de cellule dédié

Hors ligne

#5 Le 04/07/2025, à 14:43

LeoMajor

Re : Macro convertisseuse

salut,
format/cellules/date
JJ/MM/AAAA
correspond à

args2(0).Name = "NumberFormatValue"
args2(0).Value = 30
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:FormatCellDialog", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "NumberFormatValue"
args2(0).Value = 30

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args2())


end sub

Hors ligne