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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas