Extraire une valeur numérique dans une chaine de caractères

Bonjour
J'ai la chaine de caractères suivante
http://www.developpez.net/forums/att...1&d=1308430740

Je voudrais extraire la valeur numérique 22
Pour cela j'utilise left(right(chaine,4),2)
Qui marche
Par contre quand la valeur est inférieure à 10 ma technique ne marche plus
comme sur l'exemple suivant
http://www.developpez.net/forums/att...1&d=1308430841

Je ne sais pas comment faire.
Merci de votre aide.:roll:

Une solution comme une autre

Code:

---

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

Dim Chaine1,Chaine2 Chaine1 = "9Gb(22%)" Chaine2 = "1Gb(5%)"   Dim Deb, Fin   Deb = Instr(Chaine1,"(")+1 Fin = Instr(Chaine1,"%") msgbox Mid(Chaine1,Deb,Fin-Deb)   Deb = Instr(Chaine2,"(")+1 Fin = Instr(Chaine2,"%") msgbox Mid(Chaine2,Deb,Fin-Deb)

---

Merci pour ton aide ProgElecT

Ton script m'a permis de résoudre mon problème.:ccool:

Cordialement