Bonjour,
Je découvre VB ... c'est impressionnant.
J'en suis au stade ou j'arrive à me connecter à un site web via le code suivant :
Sub xxx()
Const READYSTATE_COMPLETE = 4
Dim IE
Dim elementHtml As Object
Set IE = CreateObject("internetExplorer.Application") 'ouvre internet explorer
IE.Visible = True
With IE
.Navigate "https://www.xxxxxx 'va sur la page du site
Do Until .readyState = READYSTATE_COMPLETE 'on attend jusqu’à ce que la page soit chargée
DoEvents
Loop
End With
Set elementHtml = IE.Document.getElementById("Ident")
elementHtml.Value = "1234567890"
Set elementHtml = IE.Document.getElementById("MDP")
elementHtml.Value = "AZERTY"
Set ObjectIE = IE.Document.getElementById("Valider") 'on selectionne un bouton
ObjectIE.Click 'on clique sur ce bouton
End Sub
Cette première étape me dirige vers une nouvelle page ou je souhaite simuler un click sur une rubrique décrite comme suit :
<li id="Univers"> puis
<a onclick="if (TW().checkAlertsOnExit()) {TW().setSelectionUniversByTabs(true);TW().su(this.parentNode);TW().atp(this);}else return false;" href="/cyber/internet/SelectUniverse.do?taskInfoOID=aUniversMesComptes&token=af8dd6d93dd8794024c5b33ed64367be" target="applicationPortalContent">
Comment faire ??
Merci pour votre aide
Partager