PB Regex VBA

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

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:

---

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:

---

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))

---

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:

---

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

---

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

Code:

---

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

---

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