Bonjour à tous,

je cherche à vérifier la présence de code dans un module avec une fonction boléenne mais rien ne se passe, pas même un message d'erreur.

j'ai ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Function codeExist(montext) as boolean
Dim MDL as Module
Set MDL = Modules("Module1")
If MDL.Find(montext) then
codeExist = True
Else
codeExist = False
End if
End Function
Faut-il ajouter un référence ou autre chose ?

merci d'avance.