Discussion :

[jojo86]

Bonjour,

Je souhaite piloter SAP logon afin d'ouvrir automatiquement une session et lancer des transactions.
J'arrive à ouvrir SAP, la fenêtre de connexion (login, mdp) s'affiche à l'écran puis Paf, erreur sur la ligne
J'ai étudié le message de lenovo49 à cette adresse : http://www.developpez.net/forums/d14...a/#post8133962 mais je n'arrive pas à resoudre le problème.

Dans ce post, Biorx8 donne visiblement une solution. J'ai réussi à adapter son code, la macro m'indique donc que la connexion est "OK", mais ensuite, je n'arrive pas à afficher SAP et lancer des transactions.
Le code de Biorx8 :

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
Function test()
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection

With Sheets("Feuil1")
    If Sheets("Feuil1").Cells(2, z).Value <> "" Then
    
    sapConnection.User = .Cells(2, z).Value 'nom d'utilisateur

    sapConnection.Password = .Cells(3, z).Value ' mot de passe

    sapConnection.System = .Cells(4, z).Value 'ID systeme (non obligatoire) fonctionne très bien sans... voir, ne pas renseigner
   
    sapConnection.ApplicationServer = .Cells(5, z).Value 'IP du serveur 
    
    sapConnection.SystemNumber = .Cells(6, z).Value
    
    sapConnection.Client = .Cells(7, z).Value
    
    sapConnection.Language = .Cells(8, z).Value

        If sapConnection.logon(0, True) <> True Then
        .Cells(10, z).Value = "KO"
        'End program
        Else
        .Cells(10, z).Value = "OK"
        End If
    Else
    End If
End With

End Function

Ci-dessous, le code utilisé pour lancer SAP. Mon problème c'est que Connection.Children.Count reste toujours à 0 alors que la fenetre de connexion SAP apparaît bien à l'écran.

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
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
Private Declare Function WaitForSingleObject Lib "kernel32" _
   (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long
   
Private Declare Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long


Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000


Sub sVBScriptSAP()
On Error Resume Next

'Librairies ajoutées:
'Window script Host Object model
'Sap Remote Function call Control
'SAP GUI scripting API

Application.DisplayAlerts = False
 
If Not IsObject(SAP_applic) Then
    Set SapGuiAuto = GetObject("SAPGUI")
    Set SAP_applic = SapGuiAuto.GetScriptingEngine
End If
 
 
er = Err.Number
On Error GoTo 0
 
If er <> 0 Then
  er = 0
  On Error Resume Next
  
    Dim iTask As Long, ret As Long, pHandle As Long
    iTask = Shell("C:\Program Files\SAP\FrontEnd\SAPgui\saplogon.exe", vbNormalFocus)
    pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
    ret = WaitForSingleObject(pHandle, INFINITE)
    ret = CloseHandle(pHandle)
   
  On Error GoTo 0
 
  er = 0
  On Error Resume Next
  If Not IsObject(SAP_applic) Then
    Set SapGuiAuto = GetObject("SAPGUI") 'Setting
    Set SAP_applic = SapGuiAuto.GetScriptingEngine
  End If
   
  er = Err.Number
  On Error GoTo 0
      
  If er <> 0 Then
    tmp = MsgBox("SAP Logon not installed on your system" & vbCrLf & _
      "Please install it using eSupport!", vbInformation)
    End
  End If
End If
 
Set Connection = SAP_applic.OpenConnection("Mon choix")


If Connection.Children.Count < 1 Then
Set Session = Connection.Children(0) 'Connection.Children(clng0)
Exit Sub
Else
Set Session = Connection.Children(0)
End If

Session.FindById("wnd[0]/usr/txtRSYST-BNAME").Text = "user"
Session.FindById("wnd[0]/usr/pwdRSYST-BCODE").Text = "mdp"
Session.FindById("wnd[0]/usr/txtRSYST-LANGU").Text = "FR"
Session.FindById("wnd[0]").sendVKey 0 
End if

Avez-vous une idée concernant ce problème?

Merci de votre aide.

[jojo86]

Bonjour,

Je viens de tester la connexion sur un environnement de test et ça fonctionne.
Après investigation, il semble que le scripting ne soit pas autorisé sur le serveur de production... Je vais donc devoir oublier l'idée d'automatiser certaines actions dans SAP...

Cordialement,