XL 2013 Navigation menu deroulant via vba

jeromepineau33

XLDnaute Nouveau
Bonjour,

Voila ou j'en suis de mon code :

Ouverture de la page web et authentification : OK
Navigation et actualisation avec menu deroulant : Pas OK
Copie de la page vers excel : Pas OK

Merci de votre aide

Sub connexion()

'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object

Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.navigate ("https://www.bordeauxprof.com/_layouts/15/BordeauxProfMeteo/OutilPhyto.aspx")

' attente de fin de chargement
Do Until IE.readyState = 4
DoEvents
Loop

Set IEdoc = IE.document

'login
Set DOCelement = IEdoc.getElementsByName("cams_cb_username").Item
DOCelement.Value = "V47004"

'password
Set DOCelement = IEdoc.getElementsByName("cams_cb_password").Item
DOCelement.Value = "giro"
DOCelement.Select

'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit


Set DOCelement = IEdoc.getElementsByName("ctl00$PlaceHolderMain$Zones")
Set IEdoc(0).selectedIndex = "SME"
End Sub
 

Discussions similaires


Haut Bas