database = "c:\db1.mdb"
dans access tu as 1 module par ex => module1
la dedans tu as 1 public sub =>
' en access -------------------------------
Option Compare Database
Option Explicit
Public Sub Test()
MsgBox "Test"
End Sub
' en access -------------------------------
' en vb tu fais --------------------
Dim ApAccess As Object
Set ApAccess = CreateObject("access.application")
ApAccess.OpenCurrentDatabase "c:\db1.mdb"
ApAccess.Visible = True
ApAccess.Run "Test" "<= public sub test dans module1
-------------------------------
Réponse au message :
-------------------------------
> BONJOUR
> COMMENT PEUT ON EXECUTER UN MACRO ACCESS A PARTIR DE VB
|