Discussion :

[pimter]

Ce topic date un peu mais j'aimerai savoir si tu as trouvé une réponse à ton problème bmxer31?
http://www.developpez.net/forums/d59...xplorer-macro/


J'ai le même souci que toi. J'ai une macro qui ouvre une page internet. Elle marche super bien sous Xp avec IE7 et Excel2007 et plante avec Vista, IE7 et Excel2007.

Avec Vista, j'ai une double ouverture de page internet. La première ne charge rien du tout et la 2eme fait ce qui codé dans ma macro.
Contrairement à toi, j'ai pas d'erreur mais je tourne en boucle dans ma boucle d'attente de chargement de ma page.

J'ai l'impression que ma tempo, s'effectue sur la page blanche (qui ne charge rien) au lieu de se faire sur la 2eme page (qui charge le site).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
    Dim IE As InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
        IE.navigate "www.google.fr"
        Call tempo(IE)
End Sub
 
Sub tempo(IE)
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop 'attendre la fin du chargement
End Sub

Help, j'ai cherché partout mais je trouve rien sur le sujet

edit: petite info bizarre et qui peut peu être aiguiller certain: si j'entre une adresse manuellement dans la fenêtre qui ne charge rien, ca ouvre la page dans un nouvel onglet dans la 2eme fenêtre

[fred65200]

bonjour, j'ai testé le code suivant sur Vista Home Premium SP1, IE8 Bêta et Excel 2007, tout semble fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    'référence à Microsoft Internet Controls
   Dim IE As InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
        IE.navigate "www.google.fr"
        Call tempo(IE)
End Sub
 
Sub tempo(IE)
    Do Until IE.readyState = 4 'READYSTATE_COMPLETE
        DoEvents
    Loop 'attendre la fin du chargement
End Sub

cordialement

[pimter]

Je viens de télécharger la version 8 beta de IE et en effet ça fonctionne aussi de mon coté.
Merci beaucoup Fred.

Je vais chercher encore un peu pour voir ce qui cloche avec IE7, si je trouve quelque chose, j'éditerai.