VBA macro et connexion à SAP
Bonjour à tous,
J'utilise des macros pour automatiser certaines tâches sur mon logiciel d'entreprise SAP, j'ai actuellement une macro avec 6 onglets chacun dédié à une tâche précise avec 6 modules correspondants.
Sur chaque module j'ai le code suivant pour établir la connexion à SAP :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Dim application_SAP, SapGuiAuto, connection, session As Object
'Connexion à SAP
On Error Resume Next
Set SapGuiAuto = GetObject("SAPGUI")
Set application_SAP = SapGuiAuto.GetScriptingEngine
Set connection = application_SAP.Children(0)
Set session = connection.Children(0)
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application_SAP, "on"
End If
If Err.Number <> 0 Then
TextBox.Text = "Ouvrir une session SAP"
Exit Sub
End If
On Error GoTo 0 |
Serait-il possible d'exporter le code dans une procédure d'un nouveau module, appeler cette procédure dans mes modules existants afin de ne pas répéter le code à chaque fois ?
Merci
