Sub macro2()
Dim sapConn As Object
Set objshell = CreateObject("WScript.Shell")
Set objapp = objshell.Exec(Environ("PROGRAMFILES") & "\SAP\FrontEnd\SAPgui\saplogon.exe")
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object
sapConn.connection.ApplicationServer = Environ("PROGRAMFILES") & "\SAP\FrontEnd\SAPgui\saplogon.exe"
sapConn.connection.client = "100" ' only read access
sapConn.connection.user = Environ("XXXXXXX") 'nom d'utilisateur
sapConn.connection.Password = "XXXXXX" 'mot de passe
sapConn.connection.System = ".VCM Global Production"
sapConn.connection.Language = "FR"
If sapConn.connection.logon(0, False) <> True Then 'Try Logon
MsgBox "Cannot Log on to SAP"
getSAPProjectHours = False
Else: sapConn.connection.Logoff
End If
Set sapConn = Nothing
End Sub