Discussion :

[steph5555]

Bonjour a tous,

Je travaille sur un ordinateur avec les parametres regionaux en allemand (et oui.....)

Ce qui fait que lorsque j'utilise des dates avec le format "date complete" cela m'affiche Freitag, 20. Dezember 2013 j'aimerai que ma date s'affiche en francais "Vendredi 20 décembre 2013"

Pouvez-vous m'aider à trouver une solution ?

Merci
Stéphane

[steph5555]

Bon j'ai trouvé une solution:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
DateDuJour = Day(Now)
MoisEnCours = Month(Now)
AnneeEnCours = Year(Now)
 
 
Select Case MoisEnCours
Case Is = "1"
MoisEnCours = "janvier"
Case Is = "2"
MoisEnCours = "février"
Case Is = "3"
MoisEnCours = "mars"
Case Is = "4"
MoisEnCours = "avril"
Case Is = "5"
MoisEnCours = "mai"
Case Is = "6"
MoisEnCours = "juin"
Case Is = "7"
MoisEnCours = "juillet"
Case Is = "8"
MoisEnCours = "août"
Case Is = "9"
MoisEnCours = "septembre"
Case Is = "10"
MoisEnCours = "octobre"
Case Is = "11"
MoisEnCours = "novembre"
Case Is = "12"
MoisEnCours = "décembre"
End Select
 
Texte18.Value = "Paris, le " & DateDuJour & " " & MoisEnCours & " " & AnneeEnCours

Faut faire la même chose pour le jour et ça marche parfait.

[User]

Bonjour,

Je m'étonne que personne ne t'ai proposé cette solution avant.
Peut-être parce qu'elle ne fonctionne que pour l'affichage, car une fois converties en français les dates ne peuvent plus être reconnues comme telles avec les paramètres régionaux en allemand.
Donc tu ne pourras plus gérer ces dates ni au niveau du code VBA, ni au niveau des requêtes

Cdlt,

[steph5555]

Bonjour,

Effectivement, l'affichage de la date complete en francais est dans un état, aucun traitement dessus.

merci pour ton intervention,

Stéphane