Discussion :

[Superpat9999]

Bonjour,
J'avais créé une macro sous Excel pour modifier un module :
Je souhaite modifier le code pour Access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function RecupereContenuMacro(Wb As Workbook, Mdl As String, NomMacro As String)
    Dim Debut As Integer, Fin As Integer, i As Integer
    
    With Wb.VBProject.VBComponents(Mdl).CodeModule

Merci de votre aide

[Superpat9999]

Je me réponds, j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
          Dim Mdl As Module
          Dim strSearch As String
          NomForm = "Form_FormTest1"
          Set Mdl = Modules(NomForm)
          If Mdl.Find(strSearch, 1, 1, -1, -1, False, False, False) Then
        ...