Comment faire une recherche dans les fichiers de code VBA

si votre intérêt est de rechercher des modules de code dans un fichier de base de données Access, vous pouvez utiliser le modèle d'objet VBE. Cet exemple recherche un mot dans tous les modules de ActiveVBProject de la base de données actuelle. Si la base de données comprend plus d'un projet VB, vous pouvez énumérer la collection VBProjects et rechercher les projets un à la fois par nom:

For Each objComponent In Application.VBE.VBProjects(ProjName).VBComponents

Ou si vous préférez faire référence au projet par le nombre, plutôt que de nom, juste être conscient de la numérotation commence à 1 et non que 0.

Public Sub findWordInModules(ByVal pSearchWord As String)
    'Dim objComponent As VBComponent
    ' VBComponent requires reference to Microsoft Visual Basic
    ' for Applications Extensibility; use late binding instead:
    Dim objComponent As Object
    Dim strMessage As String
    Dim strModuleList As String

    strModuleList = vbNullString
    For Each objComponent In Application.VBE.ActiveVBProject.VBComponents
        If objComponent.CodeModule.Find(pSearchWord, 1, 1, -1, -1) = True Then
            strModuleList = strModuleList & "; " & objComponent.Name
        End If
    Next objComponent
    strMessage = "Text '" & pSearchWord & "' found in "
    If Len(strModuleList) > 0 Then
        strMessage = strMessage & "modules: " & Mid(strModuleList, 3)
    Else
        strMessage = strMessage & "no modules"
    End If
    Debug.Print strMessage
End Sub

passez en revue le sujet de L'aide D'accès pour cela Find méthode; vous pouvez préférer des options différentes de celles que j'ai utilisées.

si vous voulez cibler plusieurs fichiers db et rechercher les modules dans chacun, vous pouvez automatiser cela en utilisant le OpenDatabase méthode. Je vous laisse les détails de cette partie.