Staple1600
XLDnaute Barbatruc
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:
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") )
Est-ce qu'un Xldnaute (avec cette configuration : Windows 10 64 bits Fall Creator Update + Office 2013 32 bits) peut tester les codes suivants:
VB:
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 SubJ'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") )