Numéro de semaine

Bonjour,

Jusqu'à maintenant j'utilisais ceci pour insérer le numéro de semaine dans le label d'une userform:

'Calcul du numéro de semaine

Function numsemiso(XDATE As Date) As Integer

numsemiso = ((Int(XDATE) - DateSerial(Year(Int(XDATE) + (8 - Weekday(Int(XDATE))) _

Mod 7 - 3), 1, 1) - 3 + (Weekday(DateSerial(Year(Int(XDATE) + _

(8 - Weekday(Int(XDATE))) Mod 7 - 3), 1, 1)) + 1) Mod 7)) \ 7 + 1

End Function

Ca ne fonctionne pas avec certains ordis dont la langue régionale est réglée sur US, ils me renvoient la valeur 44 au lieu de 03.

Y a t il moyen de surmonter ce pb ?

Merci !

Bonjour,

Tu peut par exemple mettre déclencher une macro adaptée en fonction de la langue utilisée.

Essaie avec ce code :

Sub test()
Select Case Application.LanguageSettings.LanguageID(msoLanguageIDInstall)
Case 1036 'Français
'.... appel de ton code pour Français
Case 1033 'English
'.... appel de ton code pour l'Anglais
End Select
End Sub

Amicalement

Dan a écrit :

........Tu peut par exemple mettre déclencher une macro adaptée en fonction de la langue utilisée.....

Le problème c'est que je n'ai que cette fonction sous la main, et je suis bien incapable de la modifier...

J'avais fait un copier/coller, et ça marche bien depuis 2 ans....

re,

Il faudrait que je vois le fichier en question. est-ce possible ?