Erreur d'execution 2147467259(80004005) erreur non spécifée avec IE

Bonjour à tous !

Pourriez-vous me renseigner sur cette erreur que je rencontre après avoir fait un certain nombre d’ouverture et fermeture internet explorer. Au début je ne rencontrais aucun problème mais après quelque temps (sans mise à jour Windows), c'est devenu systématique. Le débugueur s'arrête sur la création de l'objet Set oNav = New SHDocVw.InternetExplorer. Pourtant cette instruction a déjà été sollicitée une vingtaine de fois (au début, 100 fois sans aucun problèmes).

J'ai utilisé plusieurs ressources sur internet pour arriver à ce code, il y a sûrement plus simple ! Merci pour votre aide

Option Explicit
Public VarStracidppr As Range
Public VarStr As Range
Public DateCrea As Date

Public Sub CreerNavigateur()
'déclaration d'une variable InternetExploreur (notation o minuscule)
Dim oNav As SHDocVw.InternetExplorer
'déclaration d'une variable passerelle entre librairie Internet Controls et HTML (notation o minuscule)
Dim oDoc As MSHTML.HTMLDocument
'déclaration d'une variable pour récupérer le contenu de innerText dans la collection documentElement
Dim Varstr_innerText As String
'déclaration d'une variable pour récupérer le contenu de l'url dans oDoc
Dim Varstr_url As String
'Déclaration variables chemein

'création de l'objet avec l'instruction Set
Set oNav = New SHDocVw.InternetExplorer
'permet de visualiser la page web (=true) ou pas(=false)
oNav.Visible = False

oNav.navigate Var_Str_Chemin_Cle
' Attente avec timeout de 10 s
If WaitIE(oNav, 10) Then
' 10 s écoulées et page non chargée
MsgBox "Time out!"
Else
' Page chargée, on continue
'création de l'objet avec l'instruction Set
Set oDoc = oNav.document
'Récupération de l
Varstr_innerText = oDoc.DocumentElement.innerText
'Récupération de l'url
Varstr_url = oDoc.URL
'Cells(1, 1).Value = Varstr_innerText
Var_Str_DateCrea = Mid(Varstr_innerText, 24, 9)
'Suppression espace
Var_Str_DateCrea = Trim(Var_Str_DateCrea)
'transformation de la saisie
Var_Str_DateCrea = Right(Var_Str_DateCrea, 2) & "/" & Mid(Var_Str_DateCrea, 5, 2) & "/" & Left(Var_Str_DateCrea, 4)

If Var_Str_Chemin_Cle = "" Then
VarDrapeau = 1
Exit Sub
End If

'Var_Str_DateCrea = StrReverse(Var_Str_DateCrea)
DateCrea = CDate(Var_Str_DateCrea)
Var_Cellule.Offset(0, -3).Value = DateCrea

'Cells(1, 3).Value = Varstr_url

'fermeture ds objets
oNav.Quit
oDoc.Close

Set oNav = Nothing

End If
End Sub

J'ai trouvé une solution à mon problème ... si cela peut aider quelqu'un d'autre ayant le même problème.

solution: Il faut "tuer"le processus d'IE car mettre la variable objet (oNav=nothing) n'est pas suffisant.