Lancer procédure d'un fichier Excel depuis Access
Bonjour,
Je dispose d'un classeur Excel 2003 généré par notre ERP. Dans ce classeur, il y a pas mal de procédures en VBA qui sont sur l'unique feuille appelée Sheet1. Et notamment il y a ce code qui permet d'avoir un menu spécifique permettant d'uploader les données dans notre BDD Oracle :
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
29
30
31
32
| Public Sub BneCreateOracleMenu()
...
With MenuBars(xlWorksheet).Menus("Or&acle")
...
.MenuItems.add "Char&ger", OnAction:=Application.ActiveSheet.CodeName & ".BneUploadDocument"
...
End With
...
end sub
Private Sub BneUploadDocument()
Dim oParams As New BneVBAParameters
Set oParams = BneGetUploadParams()
Dim strMsgHeader As String
Dim strMsgBody As String
Dim strMsgAction1 As String
Dim strMsgAction2 As String
strMsgHeader = "Erreur"
strMsgBody = "Les résultats de chargement ne peuvent pas être affichés."
strMsgAction1 = "Ceci est dû à une défaillance de réseau. Laissez cette fenêtre ouverte pour qu'il y ait plus de tentatives d'affichage de résultats de chargement."
strMsgAction2 = "Contactez votre administrateur système si le problème persiste."
Set m_Browser = New BneBrowser
BneDefaultBrowser m_Browser
Call m_Browser.ErrorMessage(strMsgHeader, strMsgBody, strMsgAction1, strMsgAction2)
m_Browser.addEventCallBack "BneUploadBegin", "ASYNCUPLOADBEGIN", Me
m_Browser.addEventCallBack "BneUploadComplete", "ASYNCUPLOADCOMPLETE", Me
m_Browser.addEventCallBack "BneUploadError", "ERROR", Me
m_Browser.addEventCallBack "BneUploadClose", "CLOSE", Me
m_Browser.NavigatePost APPLICATION_SERVICE, oParams
m_Browser.Show
End Sub |
Je fais de l'automation depuis ACCESS 97 (grrrrr) et je souhaite juste savoir comment je peux appeler la procédure BneUploadDocument depuis ACCESS.
J'ai essayé, entre autres :
Code:
1
2
3
4
5
6
7
8
9
| Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(strPath)
Set xlSheet = xlBook.Sheets("Sheet1")
xlApp.Application.ActiveSheet.CodeName.BneUploadDocument |
Mais ça ne marche pas (Objet requis).
Merci d'avance aux développeurs chevronnés que vous êtes de bien vouloir m'aider :)
