Send Key'de Popup Kapatma

[umit1907]

Merhabalar,

Aşağıdaki kodla exceldeki Dialogo bilgilerini giriş sayfasına aktarabiliyorum fakat Logo sürekli bir bilgilendirme penceresi açıyor ve o açık oluncada kod çalışmıyor ilkönce o pop up kapatıp sonra makroyu çalıştırabilirmiyiz. Teşekkürler.


Sub dialogo()
Dim Yol As String
Yol = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Shell (Yol & " -url https://efatura.diyalogo.com.tr"), vbMaximizedFocus
Application.Wait Now + TimeValue("00:00:04")
SendKeys "{Tab}"
SendKeys "{Tab}"
SendKeys "{Tab}"
SendKeys "{Tab}"
SendKeys "{Tab}"
SendKeys "{Tab}"
SendKeys "{Tab}"
SendKeys [sayfa1!b2]
SendKeys "{Tab}"
SendKeys [sayfa1!c2]
SendKeys "{ENTER}"
SendKeys "{ENTER}"

Yol = vbNullString
End Sub