Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 426 fois - Téléchargée 18 fois
Option Explicit 'Constantes pour l'état d'IE Private Const READYSTATE_INTERACTIVE = 3 Private Const READYSTATE_COMPLETE = 4 Private Sub RellenarForm() Dim IE As InternetExplorer 'Créer un objet internet Explorer Set IE = CreateObject("InternetExplorer.Application") 'le rend visible IE.Visible = True 'en plein écran IE.TheaterMode = True 'ouvre une page... IE.Navigate "http://www.identifietoi.com" 'attend que la page soit chargée Do While IE.ReadyState <> READYSTATE_COMPLETE DoEvents Loop 'Rempli les champs (idUser et mdp sont les NAMES à repéré dans la source de la page web) IE.Document.all("idUser").Value = "Jeannot" 'textbox... IE.Document.all("mdp").Value = "motdepasse" 'textbox... 'Valide le formulaire IE.Document.Forms(0).submit 'attend que la page soit chargée Do While IE.ReadyState <> READYSTATE_COMPLETE DoEvents Loop 'Clique sur le lien javascript d'après sont id (dans la source aussi) IE.Document.Links().namedItem("idlinknewdoc").Click 'attend que la page soit chargée Do While IE.ReadyState <> READYSTATE_COMPLETE DoEvents Loop 'Boucle parcourant tous les objets de la page jusqu'à celui que l'on souhaite For i = 0 To IE.Document.all.Length - 1 'ici on test si c'est le contrôle voulu avec un de ses attributs puis on clique If IE.Document.all.Item(i).Value = "Cercar" Then If err.Number = 0 Then IE.Document.all.Item(i).Click Else err.Clear End If End If Next 'attend que la page soit chargée Do While IE.ReadyState <> READYSTATE_COMPLETE DoEvents Loop Set IE = Nothing End sub
me semble
Savez vous comment on peut cocher un bouton radio d'un formulaire ?
pas de
IE.Document.All ....
mais
Dim oDoc As ....
oDoc = IE.Document
oDoc.All ....
J'ai pourtant bien ajouté les 2 références
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.