comment corriger date format anglais ?

[news]

Bonsoir à tous du forum,

j'ai une difficulté avec la date format, il n'est pas repris le bon format de date, mais la date est convertie dans le tableau dans le format de date version anglaise !

J'utilise la fonction Format(Cdate),

Private Sub UserForm_Initialize()
Textbox2 = Format(Me.Textbox2, "dd/mm/yyyy")
...
End Sub

Private Sub CommandButton5_Click() ' button "Ok" modifie le jour dans le tableau
Dim L As Long
If L = 0 Then Exit Sub
With Worksheets("data")
.Cells(L, 2) = Format(CDate(Textbox2.Value), "dd/mm/yyyy")
.Cells(L, 2).NumberFormat = "dd/mm/yyyy"
End With
End Sub

p. ex : la date de 22/11/2009 est mis au tableau en 22/11/2009
mais la date 05/10/2009 est mis en 10/05/2009 !

Quel format on peut utiliser pour que la date n'est pas convertie en format anglais ?

merci d'avance de vos astuces,

news

 

[news]

Re : comment corriger date format anglais ?

Bonjour à tous du forum,

Re: cela ne change pas,

j'ai changé le format en "dd/mmm/yyyy",
cela met bien le format francais : 02/10/2009 = 02/10/2009
mais 08/12/2009 = 08/déc/2009

parfois met le format mm ou mmm !

peut-être il y a de meilleur code format à utiliser,

news

 

[kiki29]

Re : comment corriger date format anglais ?

Salut, à tester

     .....Format(CDate(TextBox2.Value), "mm/dd/yyyy")

Un conseil,pour la saise de dates passer par un DTPicker

MSCOMCT2.ocx
---------------
Téléchargement sur
Décompresser le fichier cab
Placer MSCOMCT2.OCX dans c:\windows\System32
puis Menu Démarrer/Exécuter (Taper ou Coller) regsvr32 MSCOMCT2.OCX
Cliquer sur Ok
Le Message "DllRegisterServer dans c:\windows\System32\MSCOMCT2.OCX réussi"
confirme l'installation correcte du composant

Sous VBE Excel [Alt+F11]
Pour l'ajouter dans la Boite à outils
Créer un UserForm bidon
Menu Affichage/Boite à outils
Clic Droit sur Boite à outils ou Menu Outils/Controles supplémentaires
Cocher Microsoft MonthView Control version 6.0 (SP6) et/ou
Microsoft Date and Time Picker Control 6.0 (SP6)

 

[news]

Re : comment corriger date format anglais ?

Bonjour à tous du forum,

je pense le format suivant le résoud

.Cells(L, 2) = (CDate(TextBox2.Text))
.Cells(L, 2).NumberFormat = "dd/mm/yyyy"

oups déjà eu réponse entre temps,
Re: kiki29
je ne préfère pas utiliser d'ajoutes d'autres programmes, comme ce fichier avec le format de date
est utilisé par plusieurs ordinateurs, et il se peut que d'autres utilisateurs ne savent bien utiliser les manip de télécharrgeant et de les copier dans les répertoires c:\windows\System32.

merci pour réponse et astuce,

news

 

[kiki29]

Re : comment corriger date format anglais ?

Re,cependant

 

[news]

Re : comment corriger date format anglais ?

Bonjour à tous du forum,

Re: kiki29
d'accord cela fonctionne avec le programme

mais uniquement si j'ouvre ton fichier, je reçois le bug "impossible de charger l'objet, car il n'est pas diponible sur cette machine",
comme je n'ai pas installé le programme, Microsoft Windows Common Controls-2 6.0(SP6),

merci pour réponse et astuce proposé,

news