Recherche Date dans un String

Bonjour !

J'ai besoin de dégager la premiére date que je trouve dans une chaine de caractére du type :
Le*04/02/2008 de*15H37 au*14/02/08 à*12H10

Aprés traitement il me faudrait trouver 04/02/2008 dans une variable.

J'ai bien une idée mais elle est TRES compliquée.

Pourriez-vous m'indiquer une méthode ?

Merci.

Remplace tes * par des espaces puis split le résultat

Code:

---

TaDate = Split(replace ("Le*04/02/2008 de*15H37 au*14/02/08 à*12H10","*"," ")," ")(1)

---

Tu peux tester pour moi ?

ça marche parfaitement,

Le probléme c'est que la chaine de caractére n'est pas tout le temps de la même forme, je vais avoir des phrases trés diverse..

bonjour

tu peux tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim strTexte As String Dim i As Integer Dim varDate As String   strTexte = "Le*04/02/2008 de*15H37 au*14/02/08 à*12H10"   For i = 1 To Len(strTexte) If Mid(strTexte, i, 10) Like "##/##/####" Then varDate = Mid(strTexte, i, 10) Exit For End If Next   If Not varDate = "" Then MsgBox CDate(varDate)

---

bonne journée
michel

A partir du moment où la date se trouve toujours en seconde position, ça reste bon. Si elle change de place mais qu'elle reste la première de la chaîne alors ajoute un test

Code:

---

1 2 3 4 5 6 7 8 9

Dim Tablo as Variant Tablo = Split(replace ("Le*04/02/2008 de*15H37 au*14/02/08 à*12H10","*"," ")," ") For i = 0 to Ubound(Tablo) If isDate(Tablo(i)) then LaDate = Tablo(i) exit for endif Next Msgbox LaDate

---

Bonjour Michel,
J'ai supposé que le format de date pouvait changer et être aussi bien 04/02/08 que 4/2/08 que 4/2/2008 ;)

SilkyRoad c'est partfait, je vais utiliser pleinement ce code :)

Ta macro fonctionne aussi bien ouskel'n'or !


Je vous remerci tous les deux !