Discussion :

[pitipilot]

Bonjour j'ai un problème avec les dates (ce qui se fait de pire en prog j'ai l'impression -_-)

J'ai développé une application sur un pc français, tout marche bien impeccable !

Quand je lance mon application sur un PC US, les valeurs par défauts des dates sont "12:00:00 AM" au lieu de "00:00:00".

N'y a-t-il pas un moyen de forcer l'utilisation du système français.

(NB : je ne peut pas faire format(Date, "dd/mm/yyyy") car l'application peut être utilisée autant sur un pc anglais que français

[Jean-Philippe André]

Salut,

peux-tu nous préciser dans quel environnement tu souhaites manipuler ces dates ? Dans les cellules Excel, dans ton interface utilisateur, dans ton code ?

[pitipilot]

Bonjour,

Je souhaite utiliser cela dans mon code en VBA Excel 2003

[Jean-Philippe André]

Le format de date en VBA est toujours le même :

#MM/JJ/AAAA#

C'est par conséquent à toi de faire une interface utilisateur qui ne posera pas de problème. Pour cela tu as des objets dédiés :
- Calendrier
- DateTimePicker

Si tu cadres la saisie utilisateur, aucun problème en principe

[pitipilot]

Bah en fait le problème c'est que la valeur de la date est celle par défaut d'un paramètre d'une fonction.

Je transmet via ByRef une date et un numéro de semaine. Ma fonction trouve le premier jour de cette semaine (en dd/mm/yyyy sur un pc français).

Le problème est la valeur par défaut sans initialisation de cette date.

J'ai réussi à "régler" le problème en initialisant toutes mes dates (chose que l'on doit toujours faire de toute manière mais j'ai pris de sale habitude avec VB :p).

Merci en tout cas de s'être penché sur mon problème .

[parmi]

Bonjour,

Il m'arrive à l'occasion de faire des applications utilisées par des francophones et des anglophones. Je me sers alors de Application.International pour déterminer le langage et donc le format de dates.

ex:

Code :

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

1
2
3
4
5
        If Application.International(xlCountrySetting) = 2 Then  
            Range("E1").NumberFormat = "yyyy-mm-dd"  'Français
        Else
            Range("E1").NumberFormat = "mm/dd/yyyy"  'Anglais
        End If

À noter qu'ici (Québec) le format des dates françaises est aaaa-mm-jj
Il faut donc modifier si le format régional est différent....

L'enfer, ces dates...