Discussion :

[Nourson]

Bonjour
Voici mon problème :
Etant dans une base A, je souhaite capturer le code vba (forms,reports,modules) d'une base B. Comment y accéder ?
Merci pour vos lumières.
Nourson

[hajeahmad]

bonjour
essai ce code à adapter peut etre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function MajCodeVBAbis(PathBase As String) As Boolean
 
' chemin de la base  'PathBase = PathBase & ".mdb"
 
Dim temp As VBComponent
Dim AppAccess As Access.Application
Dim Accmodule As Module
Dim i As Integer
Dim j As Integer
Dim oAccess As New Access.Application
Dim oDb As DAO.Database
 
 
    With oAccess
        .OpenCurrentDatabase (PathBase)
        Set oDb = .CurrentDb
    End With
 
    For i = 1 To oAccess.VBE.VBProjects(1).VBComponents.Count
        For j = 1 To oAccess.VBE.VBProjects(1).VBComponents.Item(i).CodeModule.CountOfLines
                Debug.Print oAccess.VBE.VBProjects(1).VBComponents.Item(i).CodeModule.Lines(j, 1)
        Next j
    Next i
    Set oAccess = Nothing
    oDb.Close
    Set oDb = Nothing
    MajCodeVBAbis = True
 
End Function

a+
ahmad

[Nourson]

Merci
Problème résolu.