Discussion :

[deniooo]

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.

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu peux tester pour moi ?

[deniooo]

ç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..

[SilkyRoad]

bonjour

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deniooo]

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

Ta macro fonctionne aussi bien ouskel'n'or !


Je vous remerci tous les deux !