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