probleme ShellWindows -W10 VBA

Version imprimable

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 :

Citation:

Erreur :exécution 70 : permission refusée
Code:

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
:(

16/02/2022, 13h19
mjpmjp

bonjour,

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

@+JP
16/02/2022, 13h39
kattalin

CC mjpmjp,

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

Bonne journée:D
17/02/2022, 14h13
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.

bonjour,

c'est de ce morceau que je parlais

Code:

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

01/03/2022, 15h46
kattalin

probleme ShellWindows -W10 VBA

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.