But once I need help from friends, in this procedure I need to automate the click on the "save" button and want to replace "yes" as follows:
VBA Code:
Sub ScrapeOddsUsingIE()
Dim IE As New SHDocVw.InternetExplorer
Dim objPic As Picture
'ACCESS THE WEBSITE AND WAIT TO LOAD
IE.navigate "https://gru.inpi.gov.br/pePI/"
IE.Visible = True
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy
Loop
'COPY COMPLETE HTML TO FOLDER
IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, "C:\Temp\inpi.html"
'HERE I NEED TO CLICK MANUALLY TO SAVE AND REPLACE YES (I NEED TO AUTOMATE THIS PAST)
Set objPic = ActiveSheet.Pictures.Insert("C:\Temp\INPI_arquivos\faleconosco.png")
End Sub