Formatage de chaine

[malabarbe]

Bonjour,

Si j'ai cette chaine : Mardi 29 juin 2008
je la transforme en : 29/06/2008 avec ce code

date_cour = CDate(Mid(Strg, InStr(1, Strg, " ", 1) + 1))

Par contre, si j'ai cette chaine : Mardi 1er juillet 2008,
j'ai une erreur (a cause du 1er)

Peut-on adapter ce code pour qu'il tourne
pour les deux types de chaines ?

Merci à vous

 

[Pierrot93]

Re : Formatage de chaine

Bonjour Malabarbe

essaye peut être comme ci dessoyus :

Dim date_cour As Date, Strg As String
date_cour = CDate(Mid(Replace(Strg, "1er", "1"), InStr(1, Replace(Strg, "1er", "1"), " ", 1) + 1))

bonne fin d'après midi
@+

 

[Staple1600]

Re : Formatage de chaine

Bonjour

Sub ok_test()
Dim x As String, fin_X As String
Dim tabl As Variant
x = "Mardi 1er juillet 2008"
tabl = Split(x, " ")
fin_X = Left(tabl(1), 1) & " " & tabl(2) & " " & tabl(3)
MsgBox CDate(fin_X)
End Sub

en plus court:

Sub ok_test_ii()
Dim x As String
Dim tabl As Variant
x = "Mardi 1er juillet 2008"
tabl = Split(x, " ")
MsgBox CDate(Left(tabl(1), 1) & " " & tabl(2) & " " & tabl(3))
End Sub

edit: bonjour Pierrot93

 

[malabarbe]

Re : Formatage de chaine

Bonjour,

Merci Pierrot93

cela tourne admirablement

Donc ce Post est résolu

@ +

 

[malabarbe]

Re : Formatage de chaine

Merci Staple1600,

Mais j'ai eu la réponse par Pierrot93

@ +