Problème Extraction SAP

**laurent27530** · 23/11/2020, 13h41

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 VBA :

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
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

**EricDgn** · 25/11/2020, 23h36

Bonjour,
A vérifier: ctxtDY_FILENAME ou ctxtDY-FILENAME ?
Cordialement.

**laurent27530** · 14/12/2020, 13h58

J'ai le message suivant

erreur d'execution '-2147221164 (80040154) Class non registered sur la ligne : Set SAP_Con = CreateObject("SAP.Functions")

**Pierre Fauconnier** · 14/12/2020, 16h09

Salut.

Ta bibliothèque SAP n'est probablement pas enregistrée, voire installée

**laurent27530** · 30/12/2020, 09h17

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

**laurent27530** · 02/08/2021, 09h49

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 VBA :

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
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

Problème Extraction SAP

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager