[soft]

Bonjour le Fil,
Gab, là tu compliques un brin ... mais je pense qu'en changeant la 6e ligne :

If Left(strCode, Len(TestCode)) = TestCode Then

par

If InStr(strCode, TestCode) <> 0 Then

Ca devrait le faire ...

Message édité par: soft, à: 25/10/2005 11:23