[Access 2002] - Extraire une date d'une chaine de caractère

Bonjour

Voici une solution

Dim I As Long
Dim Chaine As String

Chaine = " DU 01/01/2005 AU 31/12/2005"

For I = 1 To Len(Chaine) - 9
X = Mid$(Chaine, I, 10)
If X Like "##/##/####" Then
MsgBox X
End If
Next I

Cordialement

"Jeff" <jf@jf.com> a écrit dans le message de news:
437c583e$0$29179$8fcfb975@news.wanadoo.fr...

Bonjour à tous

Je voudrais un petit coup de pouce pour une fonction permettant d'extraire
une
date au format jj/mm/aaaa d'une chaine de caractères.

Si vous avez des "astuces" sur le sujet, je suis preneur.

Merci d'avance

Cordialement

Jeff