Appel SAP depuis VBA

Version imprimable

Bonjour,

Pour piloter SAP depuis VBA, j'ulise un script de connexion de ce type :

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
 
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
 
  Call Shell("C:\Program Files\SAP\FrontEnd\SAPGUI\saplogon.exe", vbMinimizedFocus)
  Call Shell("C:\Program Files\SAP\FrontEnd\SAPgui\saplogon.exe", vbMinimizedFocus)
  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("0.1 - R/3 Production [SBP_LOGON]")
 
 
If Connection.Children.Count < 1 Then
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 = "EN"
session.findById("wnd[0]").sendVKey 0

Celui-ci ouvre une nouvelle connection avec utilisation du login et paswword.

Les utilisateur de mon programme excel, sont déjà connecté dans SAP. Pourriez-vous me transmettre un bout de code qui permet d'afficher la session déjà ouverte ?

J'arrive à éxécuter un vbs mais celui-ci m'oblige à utiliser un temps de pause VBA non régulier pour certaines transactions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = 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
...

merci pour votre aide,

Damien

Bonjour,

Je ne suis pas certain de bien comprendre, mais j'utilise cette méthode si la fenêtre principale de SAP est déjà ouverte

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
    On Error GoTo Erreur

    Set SapGuiAuto = GetObject("SAPGUI")
    If Not IsObject(SapGuiAuto) Then
        Exit Sub
    End If
    
    Set AppliSAP = SapGuiAuto.GetScriptingEngine()
    If Not IsObject(AppliSAP) Then
        Exit Sub
    End If
    
    Set Connection = AppliSAP.Connections(0)
    If Not IsObject(Connection) Then
        Exit Sub
    End If
    
    Set Session = Connection.Sessions(0)  'la première fenêtre ouverte de SAP (1e session)
    If Not IsObject(Session) Then
        Exit Sub
    End If
    
    Session.FindById("wnd[0]").Maximize
    Session.FindById("wnd[0]/tbar[0]/okcd").Text = "/nNomDeLaRequêt"

En mettant "/n" devant le nom de la requête, ça évite de devoir se replacer sur l'écran principal.

Advenant une erreur, je la vérifie ainsi

Code:

1
2
3
4
    Exit Sub
Erreur:
    If Err.Number = -2147221020 Or Err.Number = 614 Then
        MsgBox "Démarrer une session SAP", vbExclamation, "Erreur SAP"

NB: il y a un forum dédié à SAP ICI

Bonjour,

En fait, j'aimerai ouvrir la fenêtre SAP active et lancer un certain nombre de commande.
Le fait est que je suis soit obligé d'exécuter une nouvelle connextion (nécessite l'intégration du MDP dans le code, donc no way) ou bien de passer par un VBS. Ce dernier demande une estimation d'un temps de pause à intégrer dans la macro, ce qui pose problème car les temps de réponse des requêtes sur SAP ne sont pas toujours semblables (parfois 15 sec, parfois 1 minute, parfois plus).

Ce que tu proposes me convient mais je ne parvient pas à l'intégrer dans mon code.

Pour résumer, ma macro fait appel à 2 transactions que j'exécute depuis un vbs en mettant ma macor en standby le temps que les extracts depuis SAp se fassent :

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
 
Sub VBS_MB25()
Application.WindowState = xlMinimized
Application.Visible = False
 
 
 
Shell "Explorer.exe ""..\Data\MB25.vbs""", 1
 
Application.Visible = True
Application.WindowState = xlMaximized
 
Sleep 60000 ' temps estimé mais trop variable
 
'Call VBS_ME28
 
Call Open_file
End Sub
 
Sub VBS_ME28()
Application.WindowState = xlMinimized
Application.Visible = False
 
 
 
Shell "Explorer.exe ""..\Data\ME28.vbs""", 1
 
Application.Visible = True
Application.WindowState = xlMaximized
 
Sleep 15000 
 
Call Open_file
End Sub

Mon exemple de VBS :

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
 
   Set AppliSAP = SapGuiAuto.GetScriptingEngine()
    If Not IsObject(AppliSAP) Then
        Exit Sub
    End If
 
    Set Connection = AppliSAP.Connections(0)
    If Not IsObject(Connection) Then
        Exit Sub
    End If
 
    Set Session = Connection.Sessions(0)  'la première fenêtre ouverte de SAP (1e session)
    If Not IsObject(Session) Then
        Exit Sub
    End If
 
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "/nmb25"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 17
session.findById("wnd[1]/usr/txtV-LOW").text = "Provisioning"
session.findById("wnd[1]/usr/txtENAME-LOW").text = ""
session.findById("wnd[1]/usr/txtENAME-LOW").setFocus
session.findById("wnd[1]/usr/txtENAME-LOW").caretPosition = 0
session.findById("wnd[1]").sendVKey 8
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[2]").select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").setFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").text = "..\Data"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "EXTRACT_AUTOFILL_MB25.xls"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 1
session.findById("wnd[1]/tbar[0]/btn[11]").press
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "/n"
session.findById("wnd[0]").sendVKey 0

Comment puis-je donc intégrer ton bout de code dans le mien ?

Merci pour ton aide,
Damien

Ce bout de code peut suffire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim App, Connection, session As Object
    Set SapGuiAuto = GetObject("SAPGUI")
    Set App = SapGuiAuto.GetScriptingEngine
    Set Connection = App.Children(0)
    Set session = Connection.Children(0)
 
 
 
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/Nxxx"
session.findById("wnd[0]").sendVKey 0

Parfois, faut pas se prendre trop la tête :-)

Damien

Dans mon cas, je roule tout dans Excel.
Et c'est Excel qui gère les temps d'attente de chaque commande.

Le vbs ne me sert qu'à construire/modifier/adapter le code généré par l'enregistreur.
Ensuite, je me crée des variables au besoin que j'utilise dans le script.

Ces genres de lignes, je les place dans mon code Excel
De là l'utilisation de la variable Session déclarée dans Excel.

Code:

session.findById("wnd[0]/tbar[0]/okcd").text = "/nmb25"

Le code que je t'ai mis n'était pas complet, mais j'ai laissé quelques lignes à la fin pour que tu vois quelques findbyid.
Une fois le script vbs enregistré, je ne l'utilise plus jamais, donc jamais de Shell "..."

Tu peux aussi utiliser des librairies de SAP dans Excel pour aider à créer ton code.
Par la suite, tu peux enlever les références et utiliser des variables As Object pour une meilleure portabilité.

Lorsque tu déclares

Code:

Dim App, Connection, session As Object

Seule Session est un objet. Les autres sont des Variant
Habitue-toi à déclarer chaque variable comme il se doit

Code:

Dim App as Object, Connection as Object, session As Object

Voici un exemple de code que j'utilise à partir d'Excel.
(Les Stop...Resume me servent à déboguer seulement. Ça permet de trouver la ligne en problème avec F8)
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 81 82 83 84 85 Sub ZWBBS(Chemin As String, Fichier As String, strDate As String) Dim SapGuiAuto As Object Dim AppliSAP As Object Dim Connection As Object Dim Session As Object On Error GoTo Erreur Set SapGuiAuto = GetObject("SAPGUI") If Not IsObject(SapGuiAuto) Then Exit Sub End If Set AppliSAP = SapGuiAuto.GetScriptingEngine() If Not IsObject(AppliSAP) Then Exit Sub End If Set Connection = AppliSAP.Connections(0) If Not IsObject(Connection) Then Exit Sub End If Set Session = Connection.Sessions(0) If Not IsObject(Session) Then Exit Sub End If Session.findById("wnd[0]").Maximize Session.findById("wnd[0]/tbar[0]/okcd").Text = "/nZWBBS" Session.findById("wnd[0]").sendVKey 0 'Variante Session.findById("wnd[0]/tbar[1]/btn[17]").press Session.findById("wnd[1]/usr/txtV-LOW").Text = Nom de la variante Session.findById("wnd[1]/usr/txtENAME-LOW").Text = Ton UserID Session.findById("wnd[1]/tbar[0]/btn[8]").press 'Paramètres Session.findById("wnd[0]/usr/ctxtP_DATE").Text = strDate 'la date au format reconnu passé en paramètre Session.findById("wnd[0]/usr/ctxtP_VARI").Text = La variante d'affichage s'il y a lieu Session.findById("wnd[0]/tbar[1]/btn[8]").press 'Sauvegarde Session.findById("wnd[0]/usr/cntlCONTENEUR_ALV/shellcont/shell/shellcont[1]/shell").pressToolbarContextButton "&MB_EXPORT" 'petit bouton Excel Session.findById("wnd[0]/usr/cntlCONTENEUR_ALV/shellcont/shell/shellcont[1]/shell").selectContextMenuItem "&PC" Session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select Session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").SetFocus Session.findById("wnd[1]/tbar[0]/btn[0]").press Session.findById("wnd[1]/usr/ctxtDY_PATH").Text = Chemin 'inscrit le chemin du fichier passé en paramètre Session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = Fichier 'inscrit le nom du fichier passé en paramètre If Dir(Chemin & Fichier) <> "" Then Kill Chemin & Fichier 'supprime le fichier s'il existe déjà Session.findById("wnd[1]/tbar[0]/btn[0]").press 'sauvegarde Set Session = Nothing Set Connection = Nothing Set AppliSAP = Nothing Set SapGuiAuto = Nothing Exit Sub Erreur: If Err.Number = -2147221020 Or Err.Number = 614 Then MsgBox "Démarrer une session SAP", vbExclamation, "Erreur SAP" ElseIf Err.Number = 619 Then MsgBox Err.Description & vbCrLf & "S'il y a une session BW ouverte, la fermer avant de rouler la macro", vbInformation, "Erreur SAP" ElseIf Err.Number = 617 Then Session.findById("wnd[0]").sendVKey 0 Resume Next ElseIf Err.Number = 613 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Stop Resume End If ' Stop ' Resume End Sub

04/02/2017, 10h35
dedam

Merci pour ces précisions. Je vais modifier quelque peu mon code en ce sens.

Vous parlez de libraire dans SAP, j'avoue ne pas avoir encore exploité ça, je vais le renseigner.
Je préfère aussi laisser Excel gérer SAP mais de temps à autre, en fonction de la durée d'exécution de la transaction SAP, j'ai un popup qui l'indique qu'excel est en attente d'un autre problème (message OLE). Le clic sur OK laisse la procédure continuer mais cela est contraignant pour l'utilisateur.

Que puis-je faire pour éviter ce genre de message ?

Je continue à chercher sur le forum

Merci beaucoup,
Damien
04/02/2017, 15h34
parmi

Pour le message, je pense qu'on l'éliminer en écrivant
Application.DisplayAlerts = False avant le démarrage de la requête, puis True après