[othonas]

καλημέρα και ευχαριστώ για την απάντηση ο κώδικας που χρησιμοποιώ

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

'Go to this Web Page!
ie.Navigate "https"


Do
If ie.ReadyState = 4 Then
ie.Visible = False
Exit Do
Else
DoEvents
End If
Loop


Application.Wait (Now + TimeValue("0:00:01"))

ie.Visible = True
ie.Document.all.Item("ssousername").Value = Sheets("test").Range("A1")
ie.Document.all.Item("password").Value = Sheets("test").Range("B1")
SendKeys "{ENTER}", True
Application.Wait (Now + TimeValue("0:00:01"))
ie.Document.Links(0).Click
Application.Wait (Now + TimeValue("0:00:01"))
ie.Document.all.Item("_eventId_chooseActAs").Click
Application.Wait (Now + TimeValue("0:00:01"))
ie.Document.Links(10).Click
Application.Wait (Now + TimeValue("0:00:02"))
ie.Document.Links(6).Click
Application.Wait (Now + TimeValue("0:00:02"))
ie.Document.getElementByID("_eventId_submitData"). Click
Application.Wait (Now + TimeValue("0:00:02"))
ie.ExecWB 6, 2