Bonjour,
J'essai d'extraire des information de SAP pour alimenter ma base.
J'ai réussi a extraire les information sur un fichier Excel temporaire mais je n'arrive pas à y accéder depuis Access.
Le fichier sortant de SAP n'est pas enregistrer sur le PC et je n'ai pas d'autre façon de l'extraire.

Je vous joins le code ou j'en suis. La variable i est en foncion une boucle. Je fait deux extractions.


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
30
31
32
33
34
35
36
37
38
39
40
41
 session.findById("wnd[0]/tbar[0]/okcd").Text = "/nSQ00"
        session.findById("wnd[0]").sendVKey 0
        session.findById("wnd[0]/tbar[1]/btn[19]").press
        session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").currentCellRow = 3
        session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").selectedRows = "3"
        session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").doubleClickCurrentCell
        session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").firstVisibleRow = 0
        session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").selectedRows = "24"
        session.findById("wnd[0]/tbar[1]/btn[8]").press
 
        session.findById("wnd[0]/usr/ctxtWERKS-LOW").Text = "VAL"
        session.findById("wnd[0]/usr/btn%_SP$00019_%_APP_%-VALU_PUSH").press
        session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,0]").Text = "001"
        session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").Text = "002"
        session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,2]").Text = "003"
        session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,3]").Text = "010"
        session.findById("wnd[1]/tbar[0]/btn[8]").press
        session.findById("wnd[0]/usr/txt%_SP$00003_%_APP_%-TEXT").caretPosition = 19
        session.findById("wnd[0]").sendVKey 2
        session.findById("wnd[1]/usr/cntlOPTION_CONTAINER/shellcont/shell").currentCellColumn = "TEXT"
        session.findById("wnd[1]/usr/cntlOPTION_CONTAINER/shellcont/shell").doubleClickCurrentCell
        session.findById("wnd[0]/usr/txt%_SP$00002_%_APP_%-TEXT").caretPosition = 26
        session.findById("wnd[0]").sendVKey 2
        session.findById("wnd[1]/usr/cntlOPTION_CONTAINER/shellcont/shell").currentCellColumn = "TEXT"
        session.findById("wnd[1]/usr/cntlOPTION_CONTAINER/shellcont/shell").doubleClickCurrentCell
        session.findById("wnd[0]/usr/btnPB%EXCO").press
        session.findById("wnd[0]/usr/rad%EXCEL").SetFocus
        session.findById("wnd[0]/usr/rad%EXCEL").Select
 
 
 
        If i = 0 Then
            session.findById("wnd[0]/usr/txtSP$00025-LOW").Text = "FERT"
        Else
            session.findById("wnd[0]/usr/txtSP$00025-LOW").Text = "HALB"
        End If
 
 
        session.findById("wnd[0]/tbar[1]/btn[8]").press
        session.findById("wnd[1]/tbar[0]/btn[0]").press
        session.findById("wnd[1]/tbar[0]/btn[0]").pres