XL 2016 Saisie automatique dans SAP via Excel

Sub test()

Dim Application As Object
Dim SapGuiAuto As Object
Dim Connection As Object
Dim session As Object


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
session.FindById("wnd[0]/usr/ctxtVTTK-TKNUM").Text = "119420" '119420 à remplacer par une variable
session.FindById("wnd[0]/usr/ctxtVTTK-TKNUM").CaretPosition = 6
session.FindById("wnd[0]").SendVKey 0
session.FindById("wnd[0]").SendVKey 5
session.FindById("wnd[0]/usr/shell/shellcont[1]/shell[1]").SelectItem "          2", "&Hierarchy"
session.FindById("wnd[0]/usr/shell/shellcont[1]/shell[1]").EnsureVisibleHorizontalItem "          2", "&Hierarchy"
session.FindById("wnd[0]/tbar[1]/btn[8]").Press
session.FindById("wnd[0]").SendVKey 7
session.FindById("wnd[0]/usr/shell/shellcont[1]/shell[1]").SelectItem "          3", "&Hierarchy"
session.FindById("wnd[0]/usr/shell/shellcont[1]/shell[1]").EnsureVisibleHorizontalItem "          3", "&Hierarchy"
session.FindById("wnd[0]").SendVKey 3
session.FindById("wnd[0]").SendVKey 3
session.FindById("wnd[0]").SendVKey 3
session.FindById("wnd[0]").SendVKey 3

End Sub