piloter la fenetre windows en vba

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : piloter la fenetre windows en vba

fazer41

Bonjour,

Je souhaite recuperer les valeur de bourse sur abs bourse et au moment ou la macro appuie sur telechargement une fenetre Windows s'ouvre pour cliquer sur télécharger sous et je n'arrive pas a trouver le code malgré toutes mes recherches sur le net, Pouvez vous m'aider, voici mon code

Code :

Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP Public Sub CreerNavigateur()
Dim oNav As SHDocVw.InternetExplorer
Dim oDoc As MSHTML.HTMLDocument
Set oNav = New SHDocVw.InternetExplorer
oNav.Visible = True
'oNav.navigate "http://google.fr"
oNav.Navigate "http://www.abcbourse.com/download/historiques.aspx"
' Attente avec timeout de 10 s
If WaitIE(oNav, 10) Then
' 10 s écoulées et page non chargée
MsgBox "Time out!"
Else
' Page chargée, on continue
Set oDoc = oNav.Document
' modification de la Valeur date
oDoc.getElementsByName("ctl00$BodyABC$strDateDeb" )(0).Value = "26/05/2015" 'la variable entre () => afficher la page et faire afficher la source rechercher la variable
oDoc.getElementsByName("ctl00$BodyABC$strDateFin" )(0).Value = "26/05/2016"
'modification du n° de la valeur
oDoc.getElementsByName("ctl00$BodyABC$txtOneSico" )(0).Value = "FR0000120222"
'activer la coche
oDoc.getElementsByName("ctl00$BodyABC$oneSico" )(0).Click
' Clic sur bouton telecharger
oDoc.getElementsByName("ctl00$BodyABC$Button1" )(0).ClickAs Long = &H10

Publicité

Xxxaaavvv

Tu veux piloter IE pour télécharger une page ?

Xxxaaavvv

En début de module :

Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

et pour télécharger :

'Download
URLDownloadToFile 0, "URL", "chemin du fichier ou tu veux sauvegarder la page", 0, 0

t'ouvre le fichier comme n'importe quel fichier texte

Message édité par Xxxaaavvv le 01-06-2016 à 10:34:59

Marc L

Déjà résolu sur un autre forum ‼ :sarcastic:

Xxxaaavvv

bah désolé :heink:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

piloter la fenetre windows en vba

Sujets relatifs
Script windows, help please	Signature Windows mail : ajouter adresse internet + lien
Projet d'app Windows 10 universelle, accès aux données.	Fenêtre modale rétive
Installation library sous windows pour ssh	Piloter un site Web à partir de VBA
[MFC] [RESOLU] Affichage message avant fermeture d une fenetre	environnement MinGw / Windows avec caractères accentués
Problème de migration du fichier .htpasswd de Linux a Windows.
Plus de sujets relatifs à : piloter la fenetre windows en vba

Page générée en 0.054 secondes