Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Excel Discussion :

Erreur automation et erreur d'execution 462


Sujet :

Excel

  1. #1
    Candidat au Club
    Erreur automation et erreur d'execution 462
    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

  2. #2
    Inactif  
    Bonjour,

    Citation Envoyé par GREGOIRE TARDY Voir le message
    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
    À ma connaissance, le seul personnage qui a été diagnostiqué comme étant allergique au mot effort. c'est Gaston Lagaffe.

    Ô Saint Excel, Grand Dieu de l'Inutile.

    Excel n'a jamais été, n'est pas et ne sera jamais un SGBD, c'est pour cela que Excel s'appelle Excel et ne s'appelle pas Access junior.