Discussion :

[JME222956]

Bonjour à tous ,

J'ai à extraire la date de cette ligne ( excel 2000) Expressions Regulieres

Semaine du 06-10-2017

J'ai essayé plusieurs motifs mais sans resultas , la variable me retourne : Semaine du 06-10-

2017

Je vous demande un petit coup de main SVP!

Merci d'avance pour vos reponses

Cordialement

[Pierre Fauconnier]

Salut.

Si c'est toujours "semaine du xx-xx-xxxx" tel que tu nous présente la chaîne, tu peux utiliser deux solutions sans regex

Solution en extrayant la date par la droite

Code :

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

1
2
3
  source = "semaine du 12-04-2017"
  Target = Right(source, 10)
  TargetDate = DateSerial(Right(Target, 4), Mid(Target, 4, 2), Left(Target, 2))

Solution en remplaçant la partie fixe par une chaine vide

Code :

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

1
2
3
  source = "semaine du 12-04-2017"
  Target = Replace(expression:=source, Find:="semaine du ", Replace:="", compare:=vbTextCompare)
  TargetDate = DateSerial(Right(Target, 4), Mid(Target, 4, 2), Left(Target, 2))

[Theze]

Bonjour,

Comme le précise Pierre, si ta chaîne est toujours construite de la même façon, tu peux utiliser la fonction Split():

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Dim Chaine As String
    Dim LaDate As Date
 
    Chaine = "Semaine du 06-10-2017"
    LaDate = CDate(Split(Chaine, " ")(2))
 
    MsgBox LaDate
 
End Sub

[unparia]

Bonjour
ou par formule excel. Exemple -->> :

Code :

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

=DATEVAL(SUBSTITUE(A1;"Semaine du ";"";1))

La cellule d'accueil devant bien entendu être formatée en date.