Appel SAP depuis VBA

**dedam** · 01/02/2017, 08h06

Bonjour,

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

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

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

**parmi** · 01/02/2017, 17h45

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

**dedam** · 02/02/2017, 08h07

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 :

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

**parmi** · 02/02/2017, 11h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

**dedam** · 04/02/2017, 10h35

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

**parmi** · 04/02/2017, 15h34

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

Appel SAP depuis VBA [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager