Bonjour,

j'ai le code suivant pour vérifier les liens sur mon programme
mais j'ai une erreur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Type 'RegExp' non defini
Code de la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
    Function ValidationURL(ByVal url)
        Dim modele
        modele = New RegExp
        modele.pattern = "^(http://|https://){0,1}[A-Za-z0-9][A-Za-z0-9\-\.]+[A-Za-z0-9]\.[A-Za-z]{2,}[\43-\176]*$"
        modele.global = True
        ValidationURL = modele.test(url)
    End Function
Savez vous comme résoudre le problème s'il vous plait ?

Merci
Cordialement,