Formatage date

[malabarbe]

Bonsoir à tous,

J'ai une date sour la forme de : 03 août 2010
Je voudrais avoir : 03/08/2010

vdat1 = 03 août 2010
vdat2 = Replace(vdat1, "août", "/08/")

Mais ma date deviens : 08/03/2010

Donc pas bon !

Si vous avez une idée

 

[Pierrot93]

Re : Formatage date

Bonsoir,

pas sur de bien cerner ton problème, essaye peut être ainsi :

Dim vdat1 As String
Dim vdat2 As Date
vdat1 = "03 août 2010"
vdat2 = Replace(vdat1, "août", "/08/")

bonne soirée
@+

Edition : tu peux regarder aussi du coté des fonctions "format" et "cdate" dans l'aide vba...

 

[malabarbe]

Re : Formatage date

Bonsoir Pierrot93,

Merci de ta réponse, mais je viens juste
de trouver cela qui va bien

    Cells(4, 6).Select
    Selection.NumberFormat = "mm/dd/yyyy;@"

Maintenant, si tu a une autre solution ?

 

[Pierrot93]

Re : Formatage date

Re,

en l'état, pas trop, tu peux raccourcir le code ainsi :

Cells(4, 6).NumberFormat = "mm/dd/yyyy;@"

 

[malabarbe]

Re : Formatage date

Ok, c'est plus simple.

J'ai un autre soucis :

chaine ="Course 1 : PRIX DU HAVRE ATHLETIC CLUB (PRIX DU HAVRE) - Plat - HANDICAP DIVISE - 2400 mètres (23500, 9500, 7000, 4500, 2750)"

je voudrais récupérer 2400 qui se trouve avant mètres.
Cela est-il possible ?

 

[Pierrot93]

Re : Formatage date

Bonjour,

essaye ainsi :

Dim chaine As String, t As String
chaine = "Course 1 : PRIX DU HAVRE ATHLETIC CLUB (PRIX DU HAVRE) - Plat - HANDICAP DIVISE - 2400 mètres (23500, 9500, 7000, 4500, 2750)"
t = Mid(chaine, InStr(chaine, " mètres") - 4, 4)

bonne journée
@+

 

[malabarbe]

Re : Formatage date

Bonjour Pierrot93,

La formule est ok
Cela tourne parfaitement

Un grand Merci

@ +