Discussion :

[danisoaz]

Bonjour,

J'ai commencé le développement d'une appli de gestion sans me soucier ailleurs que dans les paramètres régionnaux de w7 de formater les dates et tout fonctionnait bien.

Puis après l'installation de l'utilitaire Canal+ à la demande (seul évènement extérieur intervenu sur mon PC) mes dates se sont affichées "mm/dd/yyyy"

J'ai modifié mon code format "dd/mm/yyyy" sans succès.
J'ai trouvé ici je crois un post indiquant que VBA interprétait format date bizarement et que pour obtenir "dd/mm/yyyy" il fallait coder "mm/dd/yyyy", ce que je fis. Et effectivement, cela fonctionnait correctement, jusqu'à ce matin où de nouveau les dates s'affichent "mm/dd/yyyy".

Quelqu'un a-t-il une explication ?

Je précise que les dates affichées dans les formulaires sont enregistrées dans les tables exclusivement par code et formatées de la même façon.

Merci de vodre éclairage
Daniel

[Daniel.C]

Bonjour,

Quel est le format de date dans les paramètres régionaux de Windows ?

[danisoaz]

Bonjour Daniel C.,

date courte jj/MM/aaa
date longue 1111 1 MMMM aaaa

merci

[Daniel.C]

Peux-tu poster le code que tu utilises ?

[danisoaz]

Peux-tu poster le code que tu utilises ?

enregistement

Code :

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

1
2
3
4
5
vCellule.Offset(0, 7) = Format(Lab_Date.Caption, "mm/dd/yyyy") 'Date de création du devis
vCellule.Offset(0, 8) = Format(Lab_DateModif.Caption, "mm/dd/yyyy") 'Date de la dernière modification
vCellule.Offset(0, 9) = Format(TxtDateOk, "mm/dd/yyyy") 'Date de l'acceptation par le client
vCellule.Offset(0, 10) = Format(TxtDateCloturé.Text, "mm/dd/yyyy") 'Date de clôture de l'affaire(A la fermeture de la fiche de prod)
vCellule.Offset(0, 11) = Format(TxtDateRefusé.Text, "mm/dd/yyyy") 'Date du refus du client

Chargement de l'USF

Code :

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

1
2
3
4
5
Lab_Date.Caption = Format(vCellule.Offset(0, 7), "mm/dd/yyyy")
Lab_DateModif.Caption = Format(vCellule.Offset(0, 8), "mm/dd/yyyy")
TxtDateOk.Text = Format(vCellule.Offset(0, 9), "mm/dd/yyyy")
TxtDateCloturé.Text = Format(vCellule.Offset(0, 10), "mm/dd/yyyy")
TxtDateRefusé.Text = Format(vCellule.Offset(0, 11), "mm/dd/yyyy")

Merci
Daniel

[danisoaz]

J'ai désinstallé Canal+ à la demande, rebooté : le code format("mm/dd/yyyy") donne toujours mm/dd/yyyy, ce qui en soi est bien normal.

Je modifie le code en format("dd/mm/yyyy") et j'obtiens bien dd/mm/yyyy.
Ce qui est bien normal aussi.

Mais je suis obligé de couvrir le risque de voir ressurgir ce problème chez l'utilisateur après l'installation d'un logiciel. Et je ne trouve pas le code permettant d'initialiser les paramètres régionnaux pour faire tourner mon appli et les remettre à l'état initial à la sortie.

Merci
Daniel