Formulaire et Date

[SebW]

Bonjour,


J'ai crée un formulaire sous excel avec des règles de validation pour guider les utilisateurs dans leur saisie.

Pour chaque nouvel enregistrement, j'aimerais qu'un champ [DateCre] de mon formulaire indique la date de création de cette nouvelle entrée.

Pour ceci, voici le code,

Private Sub UserForm_Initialize()
DateCre = Date
DateCre = Format(DateCre, "DD-MMM-YYYY")
end sub


Mes regionals settings sont en français mais mon excel est en anglais.

Mon problème est le suivant:
Aujourd'hui, nous sommes le 7 juin 2004, pourtant mon formulaire renvoie
la date en français du 6 juillet 2004 à l'ouverture du formulaire. C'est un problème de conversion depuis la date américaine.

Si quelqu'un a une idée pour éviter ce problème, je lui en serais très reconnaissant.

SebW

 

[Lord Nelson]

Salut Seb,

Essaie ceci :

Private Sub UserForm_Activate()
DateCre = Format(Date, "d mmm yyyy")
End Sub

Cela devrait mieux fonctionner si tu formates directement la date système et non le contenu de DateCre. Il semble aussi que l'évènement Activate soit préférable à Initialize, mais j'ignore pourquoi.

A+
HN

 

[SebW]

Merci,

C'était plus simple qu'il n'y paraissait.

Sebw