Acces web par vba

Bonjour,

je tente de contrôler des pages web par le biais de vba mais je suis bloqué dès le départ par l'authentification.
je lance bien la page web (qui est une page intranet par acces ip de type 10.0.0.1/youou/etc.html) et une sorte de formulaire viens imédiatement s'ouvrir en me demandant le nom d'utilisateur et le mot de passe

j'ai tenté ce code trouvé sur developper.com

Code:

---

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

Sub connexion()   Dim ie As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   Set ie = New InternetExplorer ie.visible = True ie.Navigate ("http://10.0.0.1/youou/etc.html")   ' attente de fin de chargement Do Until ie.ReadyState = 4 DoEvents Loop   Set IEdoc = ie.Document   'login Set DOCelement = IEdoc.getElementsByName("vb_login_username").Item DOCelement.Value = "cafeine" 'ca bug ici déja   'password Set DOCelement = IEdoc.getElementsByName("vb_login_password").Item DOCelement.Value = "etpuisquoiencore?turêves?" DOCelement.Select   'connexion Set DOCelement = IEdoc.Forms(0) DOCelement.submit   End Sub

---

Mais ca ne fonctionne pas

après recherche j'ai tenté le sendkeys

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub connexion() ThisWorkbook.FollowHyperlink "http://10.0.0.1/youou/etc.html", , True Application.Wait (Now + TimeValue("00:00:10"))   DoEvents Mot_de_Passe = inputbox("indiquez le mote de passe") SendKeys ("toto") 'user SendKeys "{TAB}" SendKeys (Mot_de_Passe) 'password SendKeys "{ENTER}" End Sub

---

mais ca ne m'inscrit que quelque lettre dans le formulaire et le reste dans mon VBE (ce qui m'arrange pas)
j'ai encore d'autres pages après et je bloque dès le départ c'est rageant :cry:

Ou je me trompe ?

Personne pour m'aider, me dire si je fais fausse route, ou si la gestion vba/web est bien trop compliqué à gérer :D

Citation:

---

Personne pour m'aider,

---

Si si.

Regarde ici et aussi là

Le site est une mine d'info mais la recherche d'info y est très fastidieuse, car pas ou peu de liens directs.

Regarde bien les liens sur cette page.
La solution y est mais pas moyen de retrouver la bonne page...:aie: et j'ai ma dose.

Merci pour ton aide godzestla, j'ai justement cherché sur ce site, mais ca ne fonctionne pas.
Avec le premier code rien ne se passe (probablement parceque j'ai une nouvelle fenêtre qui s'ouvre (demandant login et password) et je ne sais pas comment y acceder)

Concernant la deuxieme solution (les sendkeys), il commence à inscrire les 3 premières lettres dans le formulaire la ou je veux, puis inscrit le reste dans mon VBE (et je ne sais pas pourquoi).
A un moment il est fait mention de appactivate pour que ce problème n'arrive pas, mais je n'arrive pas à bien l'utiliser sur l'adresse web et ce formulaire qui s'ouvre :cry:

Bonjour,

Est ce que cette fenêtre est provoqué par le serveur IIS?
Si tu peux le faire, je te conseille d'enlever cette demande d'authentification !!!

J'avais la possibilité de l'enlever, je l'ai fait donc je ne pourrais pas apporter de solution miracle.

Malheureusement non je ne peux pas l'enlever

J'ai beau chercher je ne comprends pas j'ai l'impression qu'il stoppe complètement la macro lors de l'ouverture de ce formulaire car si je fais annuler (pour ne pas saisir d'identifiant et de mot de passe il bugge sur les autres éléments (ou m'inscrit les sendkeys un peu n'importe ou)

Quelqu'un à t'il une idée ?

Bonjour,

Je n'ai pas regardé ton problème dans le détail , mais il faut compendre que l'exemple d'authentification utilisé ne fonctionne que si le champs tu utilises le nom des champs de ton formulaire

Code:

---

1 2	IEdoc.getElementsByName("vb_login_username").

---

permet de lire un champs saisie avec le nom vb_login_username.

Pour ton cas , tu charges ton formulaire d'authentification et tu édites le source et dans ton source tu récupéres les nom des champs équivalents à login et password....

Salut

Pour te faciliter la tache, il existe sur les derniers explorateurs internet une fonction "développeur", accessible sur internet explorer et chrome via le raccourci F12. Tu peux ensuite utiliser le bouton "loupe" sous Chrome ou "pointeur" sous IE qui te permettent de pointer l'objet sur la partie navigation donnant ainsi le focus a la ligne de code y faisant référence.

J'ai survolé le post mais une question, la demande de login apparaît dans la même feuille ou dans une autre? Si c'est dans une autre feuille il te faudra d'abord pointer la nouvelle instance du navigateur avant de pouvoir faire référence aux éléments qui le composent. Et si c'est un messagebox ou un formulaire, ça sera peut être plus compliqué.

++
Qwaz

Merci beaucoup pour votre aide

CodeFacile je vois ce que tu veux dire mais je ne sais pas trop comment obtenir le nom
Qwazerty c'est bien un nouveau formulaire qui s'ouvre (je comprends donc que ca va être plus compliqué :?)
je regarde pour les zones dévellopeurs (ici pas de chrome ni la dernière version de IE) pour obtenir le nom comme le dis CodeFacile mais ce n'est pas simple, maintenant comme c'est un nouveau formulaire comment y acceder ?

Salut
Sans voir la page, ni son code source, il va être difficile de t'aider, il y a bien des cas différents.
Voila quelques pistes que tu peux suivre

1/ Télécharge la version portable de chrome, elle permet d’être exécute a partir d'un clef usb. Ça ne fonctionne pas sur toutes les appli intranet, je sais qu'au boulot je n'ai pas accès à certaines appli avec chrome portable. Ça te permettra d'avoir l'inspecteur d'éléments.

2/Si tu dois farfouiller dans le code source directement, utilise un petit logiciel style NotePad++ (gratuit lui aussi) dans ses menus tu trouveras la possibilité de mettre en forme le code au format HTML, ce qui hiérarchisera les éléments. Ça facilite la recherche et la lecture.

3/Dans ton code, recherche le lien qui lance ton formulaire (s'il existe), si tu parviens à le trouver, à partir de vba, tu ouvres une 2ème instance d'IE et tu exécutes le lien du formulaire, ainsi, ton formulaire se retrouve dans une appli IE "connue". Dans l'Inspecteur d'élément tu as un onglet TimeLine, tu y verras le déroulement du chargement de ta page principale, c'est une piste pour trouver l'adresse exécutée pour lancer le formulaire.

4/Par contre petite mise en garde, il n'est pas toujours très sécuritaire de se loger directement via vba en plaçant login est mot de passe dans ton code, il est parfois préférable de laisser l'utilisateur se connecter, tu affiches un msgbox, qui lui demande de se loger et de cliquer sur un bouton placé sur le dit msgbox.

++
Bon courage
Qwaz

Je comprends ce que tu dis, mais je n'ai pas assez d'accès ici pour obtenir quoi que ce soit à chaque fois je suis bloqué par des droits admninistrateurs.

Ci joint le login qui s'ouvre dès que j'accède à l'adresse intranet (c'est une adresse ip je rappelle), je suis dans l'incapacité d'obtenir n'importe quel information sur cette nouvelle boite puisque les seuls accès que j'ai sont les case avec le login et l'utilsateur qui me sont accessible (je ne peux plus accéder aux informations de base et encore moins le code source)

Tu as raison sur le principe, et je vais laisser faire avec code et mot de passe automatiquement par l'utilisateur sans plus m'embeter. Par contre si j'ai bien compris, les autres pages internet qui s'ouvre, je selectionne l'adresse et j'agis directement dessus comme me l'a expliqué codefacile ?

Salut
La fenêtre que tu montre n'est pas une fenêtre IE, c'est une fenêtre système, affichée par Windows pour te demander tes identifiant de connexion, on sort carrément du cadre d'excel/IE.
Je pense en effet qu'il est plus sage de laisser l'utilisateur se loger. Même si je peste souvent contre certain droit admin, ils sont tout de même la pour assurer un minimum de stabilité et de sûreté.

Je ne comprend pas bien la dernière partie de ton message. Tu auras ta page "principale" chargée dans l'IE que tu manipules via accès, si dans le déroulement de ta macro d'autres pages s'ouvrent, il faudra, comme je te l'est expliqué.
Soit récupéré le handle de la nouvelle fenêtre IE pour pouvoir la manipuler (pour ma part je trouve pas ça top).
Soit récupérer le lien qui se lance (via clique bouton ou autre) et le charger dans une autre fenêtre IE que tu contrôles (ou dans la principale si tu n'as plus besoin de son contenu).

Il n'est pas facile de répondre à ta question, il existe pas mal de cas différents, il faudrait savoir quel fenêtre s'ouvrent sur quels actions de ta part.

++
Qwaz

les fenêtres qui s'ouvre sont comme tu me l'as dis. Je dois cliquer sur le lien mais comment je fait pour

Citation:

---

Soit récupérer le lien qui se lance (via clique bouton ou autre) et le charger dans une autre fenêtre IE que tu contrôles (ou dans la principale si tu n'as plus besoin de son contenu).

---

c'est a dire la fenêtre IE que tu controle

je remet le code de la sub connexion que j'avais faites ?

soit

Code:

---

1 2 3 4 5 6 7

Dim ie As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   Set ie = New InternetExplorer ie.visible = True ie.Navigate ("http://10.0.0.1/youou/etc.html")

---

je n'arrive malheureusement pas bien à comprendre comment agir.
Mes étapes suivantes sont un click sur la page donc vers un autre lien (comme tu le dis) donc je comprends qu'il faut que je récupère le lien (ça j'y arrive encore) et que je le mette dans ie.navigate ?
Après je dois mettre une date, une année puis lancer le traitement donc comme tu le dis il faut que j'arrive à récupérer le nom des champs dans la page internet

Citation:

---

Envoyé par amnorian

Mes étapes suivantes sont un click sur la page donc vers un autre lien (comme tu le dis) donc je comprends qu'il faut que je récupère le lien (ça j'y arrive encore) et que je le mette dans ie.navigate ?
Après je dois mettre une date, une année puis lancer le traitement donc comme tu le dis il faut que j'arrive à récupérer le nom des champs dans la page internet

---

Alors lien ou bouton, non tu n'es pas forcé de récupérer le lien, tout dépend du comportement que tu vas obtenir en exécutant le lien à partir du code.

Il faut que tu regarde le code source de ta page, tu trouveras ça dans les menu d'IE. Tu dois ensuite identifier ou se trouve le lien sur lequel tu es sensé cliquer. Tu devrais trouver un truc du style:

Code:

---

<a href="#actu_1" id="aclink_1" onclick="showActu(1);return false;" class="selected">1</a>

---

bien sur ça peu varier un peu. Au passage , le lien qui est executé est contenu dans "href=". Ici la partie "intéressante" c'est le "id=" aclink_1.
Colle le contenu de la ligne que tu aura trouvé stp (si rien de confidentiel bien sur)
2 cas, soit à chaque fois que tu rafraîchis la page, l'id est le même, c'est le cas le plus simple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim IE As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   Set ie = New InternetExplorer ie.visible = True ie.Navigate ("http://10.0.0.1/youou/etc.html")   'On boucle tant que la page n'est pas totalement chargé Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop   Set IEDoc = ie.document   IEDoc.links("aclink_1").Click 'Bien sur ici tu remplace aclink_1 par la valeur id que tu auras trouvé avant.     Set IE = Nothing Set IEDoc = Nothing

---

Le code est un peu améliorable, mais normalement la fenêtre s'ouvre.
Je fait l'impasse sur l'Id dynamique, si tu vois qu'en rafraîchissant l'ID change on fera autrement.

Maintenant dis moi si le "contenu" du lien c'est ouvert dans ta feuille IE ou si une nouvelle feuille a été lancée?

++
Qwaz

Je ne comprends pas mon code bloque sur la dernière ligne et donc je n'arrive pas à faire ce que tu demande. j'ai pourtant bien cocher la case microsoft internet controls

Code:

---

1 2 3 4 5 6 7 8 9

Dim ie As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   Set ie = New InternetExplorer ie.visible = True ie.Navigate ("http://10.0.0.1/youou/etc.html")   Set IEdoc = ie.Document

---

En utilisant pas cette dernière ligne j'arrive à avancer dans mes pages grace à ie.navigate en mettant le lien HTTP à chaque fois. Donc sur le principe ça me convient

maintenant je reste bloqué sur l'avant dernière étape qui est de rentrer le mois et l'année puis d'executer (j'aurais après à extraire les informations...)

j'ai utilisé firefox pour obtenir le code que je met joint mais comme je reste bloqué sur

Code:

---

Set IEdoc = ie.Document

---

je ne peux pas mettre

Code:

---

1 2	Set DOCelement = IEdoc.getElementsByName("MOIS").Item DOCelement.Value = "02"

---

qui me permettrait de mettre le mois à mon avis, nan ?

je remet le code html que j'ai obtenu

<TD><B><PRE>Entrer un mois: </B><INPUT NAME=MOIS TYPE=text SIZE=2 VALUE = ></TD>
<TD><B><PRE> Entrer une année: </B><INPUT NAME=ANNEE TYPE=text SIZE=4 VALUE = ></TD>
<TD><INPUT NAME=submit TYPE=SUBMIT VALUE=Exécuter></TD>

Salut

J'avais recopié ton code et j'ai laisser passer une coquille, désolé.
De plus certaines parties du code que je t'ai donné on disparues, la boucle d'attente par exemple. Ce qui fait que lorsque le code veux définir ta variable IEDoc, document n'existe pas encore étant donné que la page n'est pas chargée ;).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim IE As New InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   ie.visible = True ie.Navigate ("http://10.0.0.1/youou/etc.html")   'On boucle tant que la page n'est pas totalement chargé Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop   Set IEDoc = ie.document   IEDoc.links("aclink_1").Click 'Bien sur ici tu remplaces aclink_1 par la valeur id que tu auras trouvé avant.     Set IE = Nothing Set IEDoc = Nothing

---

++
Qwaz

Code:

---

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

Sub connexion() Dim ie As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   Set ie = New InternetExplorer ie.visible = True ie.Navigate ("10.0.0.1/youou/etc.html")     'attente de fin de chargement Do Until ie.ReadyState = READYSTATE_COMPLETE DoEvents Loop   Set IEdoc = ie.Document   ie.Navigate ("10.0.0.1/youou/etc2.html") ie.Navigate ("10.0.0.1/youou/etc3.html")     Set DOCelement = IEdoc.getElementsByName("MOIS").Item DOCelement.Value = "02" end sub

---

Il me met :

erreur d'execution 91
variable ou bloc d'objet non défini et pointe sur la dernière ligne (Docelement)

Salut
A chaque fois que tu appelles Navigate, il faut faire une boucle d'attente.
Par contre quel intérêt de lancer plusieurs pages les unes derrière les autres sans rien faire dessus?

Charge directement "10.0.0.1/youou/etc3.html" la 1ère fois et fait ce que tu as à faire dessus.

++
Qwaz

J'ai fais ce que tu m'as dis (tous le reste marche tres bien d'ailleurs merci :ccool:)
Mlaheureusement meme probleme à la ligne du

Code:

---

DOCelement.Value = "02"

---

Après vérif la ligne du dessus DOCelement = notihing (lorsque je regarde la valeur de la variable.
A priori il ne prends pas en compte le IEdoc.getElementsByName("MOIS").Item
Pourtant il s'agit bien du "MOIS", je ne comprends pas...

La page est de type frame visiblement ça joue sur quelquechose ?:(

Salut
Non le type frame n'y ai, à mon, avis pour rien, bien qu'il soit géré comme une page à part, les éléments sont, il me semble, accessibles.

Par contre

Code:

---

Set DOCelement = IEdoc.getElementsByName("MOIS").Item

---

.Item à la fin ça correspond à la collection d'item, pas à un item, il faut lui donner un numéro d'item, essai comme ça

Code:

---

Set DOCelement = IEdoc.getElementsByName("MOIS").Item(0)

---

++
Qwaz

Salut,

j'ai essayé ce que tu m'as dis et il me crée la même erreur :(

Je suis passé par des sendkeys pour obtenir ce que je veux, mais c'est pas terrible....
Je ne comprends pas pourquoi ca ne fonctionne pas :cry:

Salut
Au risque de paraître lourd et ennuyeux, sans le source, c'est pas facile de savoir ou est l'erreur.
Je vais essayer de vérifier pour le coup de la frame, l'élément n'est peut être pas accessible directement.

[Edit]
Bon je confirme, contrairement a ce que j'ai dis plus haut, le iframe cache les composants qu'il contient (enfin peut cacher, visiblement c'est une option si j'ai bien compris - contentdocument - j'approfondirais en temps utiles :)).

Essai ce code

Code:

---

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

Sub connexion() Dim IE As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   Set IE = New InternetExplorer IE.Visible = True IE.Navigate ("10.0.0.1/youou/etc3.html")     'attente de fin de chargement Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop   Set IEdoc = IE.document   'On recherche les frames contenues dans le document Set DOCelement = IEdoc.getElementsByTagName("iframe")   'On selectionne la premiere (tu devras chercher la bonne s'il y en a plusieurs Set IEdoc = DOCelement(0)   'Ensuite on charge la page que la frame reference 'Ici j'utilise IE, mais rien ne t'empeche de créer une autre fenetre Ie et de travailler dedans pour garder ta page principale chargé IE.Navigate IEdoc.src   'attente de fin de chargement Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop   'On pointe maintenant sur le Document de notre nouvelle page Set IEdoc = IE.document   'Ici tu continues le code Set DOCelement = IEdoc.all("MOIS") DOCelement.Value = "02"   '.... End Sub

---

[/Edit]
++
Qwaz

hello,

merci pour ton aide Qwazerty, malheureusement je pense que tu as parfaitement raison, il va être difficile de règler le problème sans être positionné devant l'ordinateur.
J'ai testé ton code, au départ une frame après l'autre puis après j'ai fais une boucle (au cas ou). Mais soit l'erreur persiste (1er cas), soit la boucle tourne sans s'arreter. Je t'ai remis le code, que j'ai annoté avec les valeurs des variables pendant que la macro tourne, ce que je trouve bizarre c'est que le IEdoc est toujours égale à nothing.

Code:

---

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

Sub connexion2() Dim IE As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object   Set IE = New InternetExplorer 'IE = Microsoft Internet explorer IE.visible = True IE.Navigate ("http://10.0.0.01/truc/Framegr1.html")   'attente de fin de chargement Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop   Set IEdoc = IE.Document 'IEdoc = Nothing déjà la bizarre nan ?   'On recherche les frames contenues dans le document Set DOCelement = IEdoc.getElementsByTagName("iframe") 'DOCelement = '[object]'   'On selectionne la premiere (tu devras chercher la bonne s'il y en a plusieurs Do 'boucle pour déterminer la bonne frame Set IEdoc = DOCelement(i) i = i + 1 Loop Until Not IEdoc Is Nothing   'Ensuite on charge la page que la frame reference 'Ici j'utilise IE, mais rien ne t'empeche de créer une autre fenetre Ie et de travailler dedans pour garder ta page principale chargé IE.Navigate IEdoc.src 'Ca bloque la "erreur d'execution 91, variable ou bloc de With non definie   'attente de fin de chargement Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop   'On pointe maintenant sur le Document de notre nouvelle page Set IEdoc = IE.Document   'Ici tu continues le code Set DOCelement = IEdoc.all("MOIS") DOCelement.Value = "02"   '.... End Sub

---

J'ai tenté en remplaçant cette ligne

Code:

---

Set DOCelement = IEdoc.getElementsByTagName("iframe")

---

par cette ligne

Code:

---

Set DOCelement = IEdoc.getElementsByTagName("Frame")

---

bon j'essaye hein.

Ca va un peu plus loin si je met DOCelement à 1 mais après ca bug à nouveau (à 0 ca ne fonctionne pas, à plus de 1 ca tourne en boucle.) , mais maintenant c'est le DOCelement qui est égale à nothing...

Comme je le disais hier, je suis passé par des sendKeys, ca fonctionne presque jusqu'au bout, sauf que je dois normalement cliquer sur un bouton executer, et la je n'arrive pas à l'atteindre, probleme identique à auparavant....

Salut
si IEDoc est nothing inutile de chercher a debuger le reste du code. Mets un espion sur la variable IE et regarde dans Document si tu as du contenu.
++
Qwaz

La par contre je ne sais pas trop comment faire
IEdoc avant le passage du iframe = 'object', apres il est égale a nothing puisque DOCelement = nothing

Salut
Ha d'accord, je n'avais pas compris ça, je pensais que c’était des le début qu'IEDoc était vide.

Tu dois chercher dans ton code source de page, tu as trouver la ligne

Code:

---

<INPUT NAME=MOIS TYPE=text SIZE=2 VALUE = >

---

remonte dans l'arborescence de ta page (toujours dans le code source) pour trouver l'intitulé du supposé "iframe" qui le contient.

J'ai essayé de trouver un site ayant une structure se rapprochant de ce que tu explique pour pouvoir faire des essais, mais je n'ai rien trouvé.

Citation:

---

Ça va un peu plus loin si je met DOCelement à 1 mais après ca bug à nouveau

---

A quel endroit? Le fait de mettre 0 ou 1 ou 2... ça représente un élément de la collection contenu dans DocElement.
En détail:

Code:

---

Set DOCelement = IEdoc.getElementsByTagName("iframe")

---

On dresse une collection d'élément ayant pour tag iframe

Code:

---

Set IEdoc = DOCelement(x)

---

x représente l'item de la collection que tu veux utiliser. Si par exemple tu as 3 iframes dans ta page, la collection DocElement contient 3 items numérotés de 0 à 2. Donc si tu mets x=1, tu fais référence au 2ème iframe de la page.

Ps: Donc ta boucle ne va pas, soit elle s'arrête au premier élément de la collection (0), soit elle boucle à l'infini si la collection est vide (Docelement = nothnig)

Ensuite si IEDoc est nothing inutil d'aller plus loin, il faut que tu pointes la bonne frame.

Code:

---

IE.Navigate IEdoc.src

---

ici on lance le contenu de la frame comme étant la page principale, permettant ainsi d'avoir accès à son contenu, si tous ce passe bien, le contenu de ton explorateur doit changer et te montrer une partie de la page. Si cette partie de page ne te montre pas ton élément MOIS, il faut chercher dans un autre frame de ta page d'accueil.

++
Qwaz

Hello,

bon je teste encore par rapport à ce que tu me dis. Après recherche je retrouve
en en tete
<frameset rows="25%,*">
<frame scrolling="NO" src="/youhou/servlet/truc1Servlet" name="frame1">
si ca aide cette ligne est dans
<tbody>
<tr>
auparavant des <script> apparaissent (avec du javascript)

je precise que IEdoc et DOCelement sont tous les deux égale à 'object' avant ce passage

Code:

---

Set IEdoc = DOCelement(i)

---

ou i peut être être égale à 0,1,2,3.... il est toujours égale à 'nothing'

si je teste

Code:

---

Set IEdoc = DOCelement

---

ca passe mais ca bloque apres

Code:

---

IE.Navigate IEdoc.src

---

Apres j'ai juste essayé de faire ceci

Code:

---

Set DOCelement = IEdoc.getElementsByTagName("Frame")

---

Il continue bien mais il me met une page "impossible d'afficher la page lors du src ("/youhou/servlet/truc1Servlet")

le DOCelement est en 'permission refusée' en 0
le DOCelement est en 'nothing en 1, mais tout fonctionnne et il continue et bloque seulement sur

Code:

---

DOCelement.Value = "02"

---

ou il me met erreur d'exxecution 91

Pour info, j'ai essayé avec frame1, frame2 au lieu de iFrame, mais rien n'y fait...
J'ai clairement l'impression de m'être attaqué à un problème qui touche plus du html que du vba :lol:

Salut

Alors
Visiblement au vu du code HTML, il semblerait que "frame" soit en effet la bonne valeur a rechercher via GetElementByTagName.

Mets un point d’arrêt après cette ligne et place un espion (clique droit ajouter un espion) sur la variable DOCelement pour voir ce qu'elle contient.

Code:

---

Set DOCelement = IEdoc.getElementsByTagName("Frame")

---

Vu qu'on travail avec un objet plutôt qu'avec le type adapté, ce doit être ce qui explique l'erreur avec DOCelement(x), si un seul frame est trouvée (je suppose) au lieu de placer un tableau de frame, il place directement la frame dans la variable DOCelement.

Donc après cette ligne essai de mettre

Code:

---

1 2	IE.Navigate DOCelement.src '+Boucle d'attente

---

Si la page se charge avec tes champs Moi Année c'est bon signe, sinon je commence a douter :)

++
Qwaz

J'ai fait ce que tu m'as dis, la variable DOCelement est bien égale à 'object' (la barriere espion me donne type : Objetct/DispHTMLelementcollection) et maintenant j'ai une erreur 438 propriété ou méthode non gérée par cet objet.

Salut
Alors si c'est un DispHTMLelementcollection, essai de faire

Code:

---

DOCelement("MOI").value = "2"

---

++
Qwaz

Bonjour,

Avant IE 7, il était possible d'écrire une URL comme ceci:
http://user:password@www.developpez.net

Cette fonctionnalité a été supprimée mais...

Dans le document suivant:
http://support.microsoft.com/kb/834489
Il y a des infos pour inclure user et password par programmation.

Bonne lecture.

Salut AlainTech
Je prendrais le temps de lire cette article, il semble intéressant.
Par contre à première vue, je doute qu'il soit applicable en ce qui concerne l'identification user/login, en effet l'accès demandé est un accès "windows" pour confirmer que l'utilisateur a un droit d'accès à internet.
En revanche il serait peut être intéressant, et c'est peut être à ce titre là que tu as fournis ce lien, d'étudier comment se comporte l'adresse internet en fonction des mois et année choisi, afin de savoir comment ces informations sont "codées" dans l'adresse de la page.
++
Qwaz

Hello Qwazerty,

j'ai tenté ce que tu me demandais, mais pas de succès malheureusement (j'ai changé par contre "MOI" par "MOIS")
Docelement est bien object mais il n'inscrit rien et plante toujours au meme endroit

Salut

Essai de faire un screen shot du contenu de l'espion sur DocElement.

Vis à vis du lien d'AlainTech (que je n'ai toujours pas lu), choisi un mois et une années, valide le choix. Une fois la page chargée, regarde le contenu de la barre d'adresse. Essai de comprendre comment celle ci est construite ex: 10.0.0.1/youou/07/2011 pour Juillet 2011. si tu ne vois pas de concordance, met nous une adresse en supprimant le nom de domaine.

++
Qwaz

Le serveur est indisponible pour le moment (je n'accède plus à la page)

Dès que ça se relance je teste le tout avec les espions