Date et Regional Settings

[Sebw]

Bonjour,


Je dois préparer un fichier qui doit être envoyé dans plus de 20 pays.
Mon problème est le suivant:
J'ai un Userform dans lequel j'ai intégré un controle calendrier.

Ce qui donne en très abrégé;

Private Sub Calendar1_Click()
Dim d1 As Date
Guarantee.d1 = Format(Calendar1.Value, "DD-MMM-YYYY")
end sub
Pas de problème jusqu'ici... ensuite je colle les données sur la feuille

Private Sub OK1_Click()
ActiveCell.Select
With ActiveCell
.Offset(0, 7).Value = Format(d1, "DD-MMM-YYYY")
End sub.

J'obtiens bien une date du type DD-MMM-YYYY. Par contre, si je change mes regional settings et passe à l'anglais... Excel ne reconnaît plus ma date comme une date valide et ne l'a traduit pas en Anglais...?!? C'est d'autant plus curieux que si je travaille d'abord en Anglais puis passe en Français, la traduction se fait sans problème....

Bref, si quelqu'un a déjà rencontré ce genre de problème, je serais très intéressé par une solution.

Merci

Sebw

 

[SebW]

Bon,

J'ai pas de succès avec ma question....est-ce par ce que c'est trop dure ou bien trop basic?

A+

sebw