Problème Extraction SAP

Version imprimable

Bonjour,

Je cherche extraire une transaction SAP

Quels sont les références a mettre pour ne pas avoir de soucis
la syntaxe "c:\TEMP\liste.txt" ne semble pas etre fonctionnel (Ligne 46)
pouvez-vous m'aider ?

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Sub SAP_CADO()
Set SAP_Con = CreateObject("SAP.Functions")
'********************************************************
'OPTIONS POSSIBLES (toutes les options sont facultatives)
'——————————————————–
'Permet d’enregistrer les infos de connexion et donc d’éviter par la suite d’utiliser les mêmes données (le mot de passe n’est pas enregistré)
SAP_Con.logfilename = " c:temprfc_read_table.txt "
'9 pour avoir un max d’infos (on peut mettre 3) dans le fichier
SAP_Con.loglevel = 9
'Données de connexion (facultatives)
SAP_Con.Connection.System = "xxx"
SAP_Con.Connection.client = "xxx"              ' Mettre le mandant
SAP_Con.Connection.user = "xxxxxxxxx"     'Mettre le login
SAP_Con.Connection.Password = "xxxxxxxxxx"       'Mettre le mot de passe
SAP_Con.Connection.Language = "EN"
'********************************************************
'Connexion à SAP
Set CONN = SAP_Con.Connection
CONN.tracelevel = 0     'Niveau de trace côté SAP 0 ou 1
'Lancer la connexion
If CONN.logon(0, False) <> True Then
    MsgBox " Impossible de se connecter ! "
    Exit Sub
Else
    If Not IsObject(Application) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set Sap_Applic = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
   Set Connection = Application.Children(0)
End If
If Not IsObject(session) Then
   Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session, "on"
   WScript.ConnectObject Application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/btn%_SO_PERS_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/tbar[0]/btn[16]").press
session.findById("wnd[1]/tbar[0]/btn[23]").press
session.findById("wnd[1]/tbar[0]/btn[23]").press
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/radMONAT").Select
session.findById("wnd[0]/usr/ctxtSO_STATU-LOW/ctxtDY_FILENAME").Text = "c:\TEMP\liste.txt"
session.findById("wnd[0]/usr/ctxtSO_STATU-LOW/ctxtDY_PATH").Text = "C:\Temp\"
session.findById("wnd[0]/usr/ctxtSO_STATU-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtSO_STATU-LOW").caretPosition = 0
session.findById("wnd[0]/usr/btn%_SO_STATU_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE").Columns.elementAt(1).Width = 2
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,0]").Text = "20"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").Text = "30"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").SetFocus
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").caretPosition = 2
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/ctxtVARIANT").Text = "TEST"
session.findById("wnd[0]/usr/ctxtVARIANT").SetFocus
session.findById("wnd[0]/usr/ctxtVARIANT").caretPosition = 3
session.findById("wnd[0]/tbar[1]/btn[8]").press
  'Click the export to file button
  session.findById("wnd[0]/tbar[1]/btn[45]").press
  'Choose the export format
  session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select
  session.findById("wnd[1]/tbar[0]/btn[0]").press
'Choose the export filename
  session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "test.txt"
  session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\Temp\"
End If
End Sub
 
Sub DeconnectionSAP()
‘DECONNEXION
SAP_Con.Connection.LOGOFF
      If Result <> False Then
            MsgBox (EXCEPTION)
      Else
            MsgBox "Session close"
      End If
End Sub

25/11/2020, 23h36
EricDgn

Bonjour,
A vérifier: ctxtDY_FILENAME ou ctxtDY-FILENAME ?
Cordialement.
14/12/2020, 13h58
laurent27530

J'ai le message suivant

Citation:

erreur d'execution '-2147221164 (80040154) Class non registered sur la ligne : Set SAP_Con = CreateObject("SAP.Functions")
14/12/2020, 16h09
Pierre Fauconnier

Salut.

Ta bibliothèque SAP n'est probablement pas enregistrée, voire installée :?
30/12/2020, 09h17
laurent27530

comment savoir ?
Et si c'est pas le casw comment l'installer ?

Bonjour

J'ai 2 soucis :
- je n'arrive pas mettre plusieurs compte si je mets qu'un user exemple "74484583" cela fonctionne mais j'aimerai mettre une liste se trouvant dans une feuille range("A1:2000")
- J'aimerai pouvoir definir le chemin de creation du fichier d'extraction "c:\TEMP\toto.xlsx"
et enchainer par la fermeture de SAP

Merci p our votre aide

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Sub SapConn()
 
Dim Appl As Object
Dim Connection As Object
Dim session As Object
Dim WshShell As Object
Dim SapGui As Object
Dim liste As Range
 
zone = Range("A1:A20")
 
'Of course change for your file directory
Shell "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe", 4
Set WshShell = CreateObject("WScript.Shell")
 
Do Until WshShell.AppActivate("SAP Logon ")
    Application.Wait Now + TimeValue("0:00:01")
Loop
 
Set WshShell = Nothing
 
Set SapGui = GetObject("SAPGUI")
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.Openconnection("SAP PROD", True)
Set session = Connection.Children(0)
 
'if You need to pass username and password
session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "xxxx"
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "xxxxxxxx"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "xxxxxxxxxxxxxx"
session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN"
 
If session.Children.Count > 1 Then
 
    answer = MsgBox("You've got opened SAP already," & _
"please leave and try again", vbOKOnly, "Opened SAP")
 
    session.findById("wnd[1]/usr/radMULTI_LOGON_OPT3").Select
    session.findById("wnd[1]/usr/radMULTI_LOGON_OPT3").SetFocus
    session.findById("wnd[1]/tbar[0]/btn[0]").press
 
    Exit Sub
 
End If
 
session.findById("wnd[0]").maximize
session.findById("wnd[0]").sendVKey 0 'ENTER
 
'and there goes your code in SAP
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "CADO"
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/btn%_SO_PERS_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,0]").Text = "74484583"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").SetFocus
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").caretPosition = 0
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/ctxtSO_STATU-LOW").Text = "2"
session.findById("wnd[0]/usr/ctxtSO_STATU-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtSO_STATU-LOW").caretPosition = 1
session.findById("wnd[0]/usr/btn%_SO_STATU_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,0]").Text = "20"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").Text = "30"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").SetFocus
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").caretPosition = 2
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/ctxtSO_DATUM-LOW").Text = "07/01/2021"
session.findById("wnd[0]/usr/ctxtSO_DATUM-HIGH").Text = "07/31/2021"
session.findById("wnd[0]/usr/ctxtVARIANT").Text = "LWI"
session.findById("wnd[0]/usr/ctxtVARIANT").SetFocus
session.findById("wnd[0]/usr/ctxtVARIANT").caretPosition = 3
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell 1, "ENAME"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").ContextMenu
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").SelectContextMenuItem "&XXL"
session.findById("wnd[0]/tbar[1]/btn[8]").press
 
 
End Sub