Erreur d'execution 70, permission refusée avec execScript [Résolu]
mmmxtina
- Messages postés
- 67
- Date d'inscription
- mardi 26 mai 2009
- Dernière intervention
- 9 avril 2013
- Messages postés
- 67
- Date d'inscription
- mardi 26 mai 2009
- Dernière intervention
- 9 avril 2013
A voir également:
- Permission refusée vba
- Erreur d'exécution 70 permission refusée - Meilleures réponses
- Erreur d'execution 70 permission refusée excel - Meilleures réponses
- Permission refusée pour initialiser la date système ✓ - Forum - VBA Office (Excel, Word ...)
- Pb erreur 70 : permission refusée ✓ - Forum - Visual Basic 6
- Permission refusée d'appeler la méthode Location.toString ✓ - Forum - Javascript / DHTML
- Window.close : permission refusée ? ✓ - Forum - Javascript / DHTML
- Permission refusée Erreur d'exécution Microsoft VBScript (0x800A0046) ✓ - Forum - ASP / ASP.NET
13 réponses
Meilleure réponse
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
non testé, mais faire en gros:
Dim oLink As Object
For Each oLink In IE.Document.getElementsByTagName("a")
If oLink.InnerHTML = "MarqueC" Then
oLink.Click
Exit For
End If
Next oLink
Dim oLink As Object
For Each oLink In IE.Document.getElementsByTagName("a")
If oLink.InnerHTML = "MarqueC" Then
oLink.Click
Exit For
End If
Next oLink
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
109 internautes nous ont dit merci ce mois-ci
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
tu attend bien que le document soit exploitable ?
(status COMPLETE)
le pas a pas accorde peut etre suffisemment de temps au webbrowser pour rappatrier la page...
(status COMPLETE)
le pas a pas accorde peut etre suffisemment de temps au webbrowser pour rappatrier la page...
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
109 internautes nous ont dit merci ce mois-ci
Bonjour Renfield,
merci de ta réponse.
En fait la page que je veux appeler, elle contient des onglets. et ces onglets, quand on clique dessus, ça déclenche la fonction javascript Onclick pour afficher l'onglet.
Et je veux faire ça à partir de VBA, donc ce que je voulais c'etait recharger la page et lancer onclick, pour que le 2e onglet s'affiche.
ça sera possible avec FireEvent? tu peux me donner la syntaxe?
(je ne suis pas très douée en vba...)
Merci beaucoup!
merci de ta réponse.
En fait la page que je veux appeler, elle contient des onglets. et ces onglets, quand on clique dessus, ça déclenche la fonction javascript Onclick pour afficher l'onglet.
Et je veux faire ça à partir de VBA, donc ce que je voulais c'etait recharger la page et lancer onclick, pour que le 2e onglet s'affiche.
ça sera possible avec FireEvent? tu peux me donner la syntaxe?
(je ne suis pas très douée en vba...)
Merci beaucoup!
Voici le code de la page partie onglet:
MarqueA
[#
MarqueB
]
[#
MarqueC
]
[#
MarqueD
]
J'ai mis de la couleur pour que ce soit plus clair, il y a donc 4 onglet, celui qui est affiché pour l'instant c'est le premier (Marque A), et le code c'est span qqch...
Moi j'aimerai afficher les 3 auutres à la suite avec VBA, pour récupérer le code source généré par la page.
Merci beaucoup!
MarqueA
[#
MarqueB
]
[#
MarqueC
]
[#
MarqueD
]
J'ai mis de la couleur pour que ce soit plus clair, il y a donc 4 onglet, celui qui est affiché pour l'instant c'est le premier (Marque A), et le code c'est span qqch...
Moi j'aimerai afficher les 3 auutres à la suite avec VBA, pour récupérer le code source généré par la page.
Merci beaucoup!
Merci pour l'info, mais cela ne fonctionne pas malheureusement....
J'ai écris ceci :
ie.Navigate (url)
ie.Visible = True
Dim oLink As Object
For Each oLink In ie.Document.getElementsByTagName("onglets")
If oLink.innerHTML Like "MarqueC" Then
oLink.Click
Exit For
End If
Next oLink
Et j'ai débbugger, en fait on ne rentre pas dans le fort, le curseur passe sur la premiere ligne en rouge, et sort directement... bizarre.
Aurez-tu une idée?
J'ai écris ceci :
ie.Navigate (url)
ie.Visible = True
Dim oLink As Object
For Each oLink In ie.Document.getElementsByTagName("onglets")
If oLink.innerHTML Like "MarqueC" Then
oLink.Click
Exit For
End If
Next oLink
Et j'ai débbugger, en fait on ne rentre pas dans le fort, le curseur passe sur la premiere ligne en rouge, et sort directement... bizarre.
Aurez-tu une idée?
CA FONCTIONNE!!!!!!!!!!!
excuse moi, j'avais écris For Each oLink In ie.Document.getElementsByTagName("onglets") aulieu de
For Each oLink In ie.Document.getElementsByTagName("a"), je suis bête!!!!!!!
Mon dieu, les heures que j'ai apssé dessuq tu m'enlèves un arbre du pied!!!!!!
merciiiiiiiiiiiii!
excuse moi, j'avais écris For Each oLink In ie.Document.getElementsByTagName("onglets") aulieu de
For Each oLink In ie.Document.getElementsByTagName("a"), je suis bête!!!!!!!
Mon dieu, les heures que j'ai apssé dessuq tu m'enlèves un arbre du pied!!!!!!
merciiiiiiiiiiiii!
Bon j'ai du crier victoire un peu trop vite!
bon c'est un peu bizare, car quand j'execute mon code pas à pas, cela fonctionne parfaitement! mais quand je lance mon code d'un coup cela ne fonctionne pas!
J'ai utilisé des msgbox pour voir ce que contenait oLink.innerHTML, lorsque c'est pas à pas, je vois le texte défilé, lorsque c'est l'execution totale, toute les msgbox sont vides.
tu as une idée du problème?
Merci beaucoup.
bon c'est un peu bizare, car quand j'execute mon code pas à pas, cela fonctionne parfaitement! mais quand je lance mon code d'un coup cela ne fonctionne pas!
J'ai utilisé des msgbox pour voir ce que contenait oLink.innerHTML, lorsque c'est pas à pas, je vois le texte défilé, lorsque c'est l'execution totale, toute les msgbox sont vides.
tu as une idée du problème?
Merci beaucoup.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.