Discussion :

[SorenIX]

Bonjours! J'ai réglé la première partie de mon problème, mais je me suis rendu compte que le code suivant ne marchera pas si d'autres utilisateurs ont un autre langage sur leur pc :

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
34
35
Function JourEnAnglais(Jour As String) As String
 
Select Case Jour
 
Case "lundi"
 
JourEnAnglais = "Monday"
 
Case "mardi"
 
JourEnAnglais = "Tuesday"
 
Case "mercredi"
 
JourEnAnglais = "Wednesday"
 
Case "jeudi"
 
JourEnAnglais = "Thursday"
 
Case "vendredi"
 
JourEnAnglais = "Friday"
 
Case "samedi"
 
JourEnAnglais = "Saturday"
 
Case "dimanche"
 
JourEnAnglais = "Sunday"
 
End Select
 
End Function

Y aurait-il une autre façon de mettre le langage par défaut en anglais pour n'importe qui?

Merci d'avance pour l'aide.

[User]

ReBonsoir,

Dans les case de la fonction il faut énumérer les "lundi","Mardi"... dans toutes les langues possibles:

exemple pour "lundi" :

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
34
35
Function JourEnAnglais(Jour As String) As String
 
Select Case Jour
 
Case "lundi", "Lunedi", "Lunes", "Montag"
 
JourEnAnglais = "Monday"
 
Case "mardi"
 
JourEnAnglais = "Tuesday"
 
Case "mercredi"
 
JourEnAnglais = "Wednesday"
 
Case "jeudi"
 
JourEnAnglais = "Thursday"
 
Case "vendredi"
 
JourEnAnglais = "Friday"
 
Case "samedi"
 
JourEnAnglais = "Saturday"
 
Case "dimanche"
 
JourEnAnglais = "Sunday"
 
End Select
 
End Function

A+

[SorenIX]

J'y avais pensé mais je croyais qu'il y avait une autre fonction quelque part...
Mais bon...

Merci pour ton aide!