Lancez module VBA d'Access

Salut!
Je sais que c'est faisable avec Excel et Word. Regarde ci-dessous et essaye avec access.

Code:

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
Private Function SendExceltoScreen(ReportID As Long, ValueObjectPath As String, ReportTitle As String) As Boolean
        On Error GoTo ErrorHandler
        Dim ReturnCode As Integer
        Dim oExcel As Object
        Dim oBook As Object
 
        On Error Resume Next
        Set oExcel = GetObject(, "Excel.Application")
        On Error GoTo 0
        If oExcel Is Nothing Then Set oExcel = CreateObject("Excel.Application")
 
        'Put default document in clipboard
        Set oBook = oExcel.Workbooks.Open(ValueObjectPath)        
 
        On Error Resume Next
        oExcel.Run "StartProgram" 'StartProgram est le nom de la sub dans Excel
        On Error GoTo 0
 
        'Make Excelfile visible
        oExcel.Visible = True
        Set oExcel = Nothing
 
        SendExceltoScreen = True
        Exit Function
 
ErrorHandler:
        SendExceltoScreen = False
End Function

Bonne chance!!