IE Automation - erreur 429 - Windows 10 - XL 2013

[Staple1600]

Bonjour

Est-ce qu'un Xldnaute (avec cette configuration : Windows 10 64 bits Fall Creator Update + Office 2013 32 bits) peut tester les codes suivants:

Sub test_Automation()
Dim oWord As Object 'As Word.Application
Dim oExcel As Object ' As Excel.Application
Dim oIE As Object
On Error GoTo err_handler

1: Set oWord = CreateObject("Word.Application")
2: Set oExcel = CreateObject("Excel.Application")
3: Set oIE = CreateObject("InternetExplorer.Application")

err_handler:
MsgBox "Erreur sur la ligne de code N°: " & Erl, vbCritical
End Sub
Sub TestIE()
Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
oIE.navigate "www.excel-downloads.com"
oIE.Visible = True
Set oIE = Nothing
End Sub

Est-ce que chez vous, ces deux codes produisent une erreur?
J'ai regardé sur le net et cela pourrait être du à la mise à jour Fall update de Windows 10
Je n'ai pas trouvé de solution.

Quelqu'un voit quoi ou comment faire ?
(Apparemment on ne pas piloter Edge comme on pilotait jadis IE avec VBA avec un CreateObject("InternetExplorer.Application") )

 

[Staple1600]

Bonsoir le fil, le forum

Décidément Microsoft aime me jouer des tours
Après ma mésaventure Office 2013 (cf mon fil dans le salon), c'est Windows et ses updates qui me font des misères.

Si cela peut servir à d'autres ici, je vous livre la solution qui fonctionne chez moi.
Le première n'a pas fonctionné (mais peut-être suffira-t-elle chez vous)
Clic-droit sur Démarrer->Rechercher: fonctionnalités windows
Dans la fenêtre qui s'affiche, cocher la case IE 11.
Puis redémarrer le PC

[LA SOLUTION QUI MARCHE!!!]
Clic-droit sur Windows Powershell et choisir Exécuter en tant qu'Administrateur
Dans la fenêtre qui s'affiche, coller la ligne ci-dessous
Enable-WindowsOptionalFeature –FeatureName "Internet-Explorer-Optional-amd64" -All -Online
Puis appuyez sur ENTER
Attendez que ce message s'affiche:
Do you want to restart the computer...
et appuyer sur ENTER

NB: Prenez soin de fermer vos applis et documents avant de lancer cette ligne de commande, car le PC redémarre dès qu'on appuie sur ENTER
[/FIN DE LA SOLUTION]

Désormais CreateObject("InternetExplorer.Application") refonctionne correctement dans VBA
Et au fait, IE réapparaît dans Accessoires Windows (et fonctionne) 😉