Este fórum está sendo desativado

[AndreaCamila]

Pessoal, oi bom dia!!

Estou importando alguns XML através de URL's. Porém, as vezes, acontece esse erro de "['-2147217376 (80041020)] O certificado de segurança necessário para acessar este recurso é inválido."

Estou usando o seguinte código:

Código: Selecionar todos

   
Sub XML ()

'Identifica última linha preenchida
        LinI = Range("AH1048576").End(xlUp).Row

'Início do Loop
    For i = 2 To LinI
URL = Sheets("Atualizações do Dia").Cells(i, 34)
    
    ' Acessando XML e gerando tabelas
 ActiveWorkbook.XmlImport URL:= _
        URL _
        , ImportMap:=Nothing, Overwrite:=True, Destination:=Worksheets("XLM").Range("$A$1")
    Next i
End Sub

Quando acesso manualmente, aparecem três janelas sobre certificado de segurança/liberação de acesso:




Acredito que preciso acrescentar no VBA algo que valide automaticamente essas janelas. Poderiam me ajuda?

Obrigada desde já a todos

[AndreaCamila]

Galera eu consegui contornar esse problema mudando a URL.

Antes estava "https" e depois tirei o "s" e ficou "http".