Bonjour,
J'essaye de me connecter à un site internet par macro dans le but de télécharger des .csv.
Pour l'instant, j'arrive à me connecter par la page avec un ID et un MPD, cliquer sur valider, changer de page, rentrer une information dans un rectangle (pour filtre par mot clé) et ensuite je dois cliquer pour valider mais je n'y arrive pas.
Voici mon code pour le moment :
Sub Connexion()
Const READYSTATE_COMPLETE = 4
Dim IE
Dim elementHtml As Object
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
With IE
.navigate "https://siteweb"
Do While .ReadyState <> READYSTATE_COMPLETE
Loop 'attend la fin du chargement
DoEvents
End With
Dim bOk As Boolean
Set elementHtml = IE.Document.getElementById("identifiant")
If Not elementHtml Is Nothing Then
bOk = True
elementHtml.Value = "IDessai"
Set elementHtml = IE.Document.getElementById("password")
If Not elementHtml Is Nothing Then
bOk = True
elementHtml.Value = "MDPessai"
Set elementHtml = IE.Document.getElementById("submit")
If Not elementHtml Is Nothing Then
bOk = True
elementHtml.Click
Else
bOk = False
End If
Else
bOk = False
End If
Else
bOk = False
End If
'deplacement page recherche
With IE
.navigate "https://siteweb/recherche"
Do While .ReadyState <> READYSTATE_COMPLETE
Loop
DoEvents
'Loop 'attend la fin du chargement
End With
'accès quantième
Set elementHtml = IE.Document.getElementById("code_Qnt")
If Not elementHtml Is Nothing Then
bOk = True
elementHtml.Value = "rouge"
End If
'=======================problème===========================
Set elementHtml = IE.Document.getelementsbyname("search")
If Not elementHtml Is Nothing Then
bOk = True
elementHtml.Click
Else
bOk = False
End If
'If bOk Then MsgBox "connexion réussie!" Else MsgBox "connexion échouée!"
Set IE = Nothing
End Sub
Le probleme, c'est qu'il ne trouve pas le "search" car ce n'est pas un "<input" mais un "<button".
Vous auriez une idée de la commande svp ? ou une idée ou chercher ^^
Merci d'avance
Bonne fin de week-end