Discussion :

[MenezHom]

Bonjour à tous,
Je suis en stage dans une entreprise et je dois, via Access, exécuter un script Sap GuiXT qui permets de récupérer les données de stocks pour les enregistrer dans un repertoir sous forme d'un fichier xls.
La nouvelle table créée écrasera l'ancienne (même nom), cette dernière étant liée au programme Access.
J'aurais ainsi des données mises à jour lors la requête sera executée.

Le début de mon code avec la connexion à SAP :

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
 
Sub Bouton1_Cliquer()
'Fichier
Shell "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.cmd", 4
Set WshShell = CreateObject("WScript.Shell")
'Attente de chargement
Do Until WshShell.AppActivate("SAP Logon ")
    Application.Wait Now + TimeValue("0:00:01")
Loop
'Choix module FP4
Set SapGui = GetObject("SAPGUI")
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.OpenConnection("FP4 Production NSM", True)
 
Set session = Connection.Children(0)
'Je me co
session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "100"
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "monidentifiant"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "monmdp"
session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "FR"
'Pour guetter si ça marche
If session.Children.Count > 1 Then
 
    answer = MsgBox("SAP est déjà ouvert," & _
"merci de le fermer et de réessayer", 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
'La je mets le code suivant mais sous quelle forme ?
End Sub

Cependant je ne sais pas quel code utiliser étant donné que j'utilise le scipt SapGuiXT ci-dessous qui ne semble pas adapté :

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
// SAP Easy Access 
Screen SAPLSMTR_NAVIGATION.0100
  Enter "%_GC 105 25"
 
// Stocks WM : écran initial 
Screen RLS10020.1000
  Set F[Type de magasin] 	"900"
  Enter "/8"      	// Exécuter
 
// Stocks WM avec désignation article 
Screen RLS10020.0120
  Enter "/9"      	// Fichier local...
 
// Sauveg. liste ds fichier. 
Screen SAPLSPO5.0110
  Set R[Texte avec tableurs] 	"X"
  Enter
 
// Stocks WM avec désignation article 
Screen SAPLSFES.0200
  Set F[Répertoire] 	"C:\Users\UTI845\Downloads\"
  Set F[Nom fich.] 	"StockGUI.xlsx"
  Enter

Auriez-vous une idée pour que je puisse exécuter ce script sous access ?
Merci beaucoup
MenezHom

[MenezHom]

Quelqu'un a une petite idée ?