Discussion :

[kattalin]

Bonjour,

J'ai parcouru plusieurs sites et là, je sèche. J'ai une macro VBA qui tourne parfaitement sous W98 et IE11. Nous sommes passés sous W10 et ça ne fonctionne plus. Lorsque je lance ma macro, il m'ouvre mes différentes fenêtres, mais il bloque sur la boucle suivante et me met le code erreur :

Erreur :exécution 70 : permission refusée

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim winShell As New ShellWindows
Dim IE6 As InternetExplorer
 
Set IE6 = CreateObject("InternetExplorer.Application")
 
For Each IE6 In winShell
    If IE6.LocationURL = page Then
        IE6.navigate ("https://XXXXXXX")
    End If
Next IE6

SI quelqu'un a une idée...je suis preneuse!

Merci

[mjpmjp]

bonjour,

vat voir dans ce lien à la page Gestions des variables et appel du form tu as le code pour le browser

@+JP

[kattalin]

CC mjpmjp,

Merci pour ta réponse ! je regarde ça dès que possible!

Bonne journée

[kattalin]

Re-bonjour,

EN fait j'ai regardé ta solution mais ça ne va pas aller. Ce qu'il me faut c'est balayer le poste et tester toutes les appli en cours. C'est ce que je faisais dans la boucle "For Each IE6 In winShell". Mais je ne comprends pas pourquoi ça ne fonctionne plus sous W10.

[mjpmjp]

bonjour,

c'est de ce morceau que je parlais

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
 
'-----
    Set objWB = FrmWebBrowser.Object("WebBrowser1")
    objWB.Silent = True
    objWB.Navigate "http://www.cinemotions.com"
    '-----
    'On boucle tant que la page n'est pas totalement chargée
    ' pTimeOut est un time out en secondes (WaitIE vaut True si Timeout)
    Dim lTimer As Double
    lTimer = Timer
    pTimeOut = 4
    Do
        DoEvents
        If objWB.readyState = READYSTATE_COMPLETE And Not objWB.Busy Then Exit Do
        If pTimeOut > 0 And Timer - lTimer > pTimeOut Then Exit Do
    Loop
 
    ' Page chargée, on continue
    Set objDoc = objWB.document

@+JP

[kattalin]

Bonjour Mjpmjp

Désolée pour le retard de réponse, j'étais en vacances...
Je m'y suis remise hier et ce matin, et avec l'aide d'un collègue nous avons trouvé d'où venait le problème. Nous avons désormais sur nos poste un processus internet explorer qui tourne en arrière plan.
Si on est pas administrateur, lorsque l'on fait la boucle shellwindow, on a de suite le message : permission refusée, car on ne peut pas agir dessus et la boucle commence a priori par ce processus.
J'ai donc tester sur un autre poste où je suis admin...et là O miracle tout fonctionne comme avant!!

En tout cas merci pour ton aide.