Hello
you may try
Sub rechercheVBE()
'activate Visual basic For Application Extensibility 5.3
Dim i As Integer, x As Integer
Dim Fichier As String, Recherche As String, Msg As String
Dim Ligne As String
Dim VBCmp As VBComponent
Fichier = "TheWorkbook.xls"
Recherche = "theWord"
For Each VBCmp In Workbooks(Fichier).VBProject.VBComponents
Msg = VBCmp.Name
x =
Workbooks(Fichier).VBProject.VBComponents(Msg).cod emodule.CountOfLines
For i = 1 To x
Ligne =
Workbooks(Fichier).VBProject.VBComponents(Msg).cod emodule.Lines(i, 1)
If InStr(1, Ligne, Recherche, vbTextCompare) Then
MsgBox "True"
Exit Sub
End If
Next
Next VBCmp
MsgBox "False"
End Sub
regards
michel
--
michelxld
------------------------------------------------------------------------
michelxld's Profile:
http://www.excelforum.com/member.php...o&userid=17367
View this thread:
http://www.excelforum.com/showthread...hreadid=387484