Discussion :

[GREGOIRE TARDY]

Bonjour à tous,

Je sollicite votre aide car après de nombreuses recherches je ne trouve pas de solution sur le net.. et pas de solution en testant et (re)testant... tout seul.

Ci dessous une routine de code qui fonctionnait parfaitement avant une mise à jours de mon PC par le service technique de mon entreprise.
Par mise à jour... je veux dire changement de version de Windows.. de Windows 7 vers windows 10. Probablement une mise à jour de IE aussi.
A ce jour, Windows 10, Microsoft Office Plus 2013 et IE (Version : 11.48.17134.0, Update versions : 11.0.65).

Si j'execute le code en debug sans point d'arret (F5), alors IE s'ouvre avec l'url http://localhost:1815/Connect.do dès l'instruction .navigate ieurl et "Hello, ca fonctionne" s'affiche.
Si je decide de placer un point d'arrêt sur la ligne " .Visible = True ", alors IE s'ouvre toujours avec l'url http://localhost:1815/Connect.do dès l'instruction .navigate ieurl
En revanche, dès que je continue l'execution de l'instruction suivante avec F8, j'ai une erreur. "Ca ne marche pas ! " s'affiche.
Puis je peux lire... Error# -2147717848 - Erreur automation.

Si je change d'URL avec https://www.google.fr je ne rencontre pas ce problème.
En revanche, à l'execution pas à pas, je constate que la page ne s'affiche pas dès l'instruction .navigate ieurl. Il faut attendre la suivante, c.à.d .Visible = True

Par avance merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
 
Private Sub IE()
 
 On Error GoTo myerror
 
  'Affectation
 
    Dim cwkb As Workbook
    Dim cwksMain As Worksheet
    Set cwkb = ActiveWorkbook
    Set cwksMain = cwkb.Sheets("Main")
 
    'ieurl = "https://www.google.fr"
    ieurl = "http://localhost:1815/Connect.do"
 
    ' Instance IE.
      Set oIE = New SHDocVw.InternetExplorer
 
    With oIE
 
        Application.StatusBar = "Navigating to: " & ieurl & ""
        'Chargement de la page
        .navigate ieurl
        'Affichage de la fenêtre
        .Visible = True
 
    End With
 
    GoTo fin
 
myerror:
 
MsgBox ("Ca ne marche pas ! ")
 
Msg = "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) & Err.Description
    MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
 
fin:
 
MsgBox ("Hello ca fonctionne ! ")
 
End Sub

[clementmarcotte]

Bonjour,

Bonjour à tous,

Je sollicite votre aide car après de nombreuses recherches je ne trouve pas de solution sur le net.. et pas de solution en testant et (re)testant... tout seul.

À moins que tu ne nous cache des choses, ou que je n'aie rien compris, c'est un faux problème ou un PEBKAC

Ci dessous une routine de code qui fonctionnait parfaitement avant une mise à jours de mon PC par le service technique de mon entreprise.
Par mise à jour... je veux dire changement de version de Windows.. de Windows 7 vers windows 10. Probablement une mise à jour de IE aussi.
A ce jour, Windows 10, Microsoft Office Plus 2013 et IE (Version : 11.48.17134.0, Update versions : 11.0.65).

Si ce qui ne marche pas c'est ce que tu dis plus loin, il n'y a pas de problème.

Si j'execute le code en debug sans point d'arret (F5), alors IE s'ouvre avec l'url http://localhost:1815/Connect.do dès l'instruction .navigate ieurl et "Hello, ca fonctionne" s'affiche.

Une macro qui fonctionne, c'est quoi le problème ?

Si je decide de placer un point d'arrêt sur la ligne " .Visible = True ", alors IE s'ouvre toujours avec l'url http://localhost:1815/Connect.do dès l'instruction .navigate ieurl
En revanche, dès que je continue l'execution de l'instruction suivante avec F8, j'ai une erreur. "Ca ne marche pas ! " s'affiche.
Puis je peux lire... Error# -2147717848 - Erreur automation.

Tu mets un point d'arrêt qui boque une opération d'automation; il est logique que tu aies une erreur automation. Ou bien, Excel n'a rien à y voir, c'est le serveur local de ta boîte et cela concerne le Service de Dictature Informatique.

Si je change d'URL avec https://www.google.fr je ne rencontre pas ce problème.
En revanche, à l'execution pas à pas, je constate que la page ne s'affiche pas dès l'instruction .navigate ieurl. Il faut attendre la suivante, c.à.d .Visible = True

Je suppose que c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

visible=false

par défaut; comme c'est souvent le cas dans VBA. Tant que tu ne mets pas true, il n'y à priori rien d'anormal