piloter la fenetre windows en vba

piloter la fenetre windows en vba - VB/VBA/VBS - Programmation

Marsh Posté le 29-05-2016 à 21:37:42    

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 :
  1. Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
  2. 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)
  3. Public Const MOUSEEVENTF_LEFTDOWN = &H2
  4. Public Const MOUSEEVENTF_LEFTUP = &H4
  5. Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
  6. Public Const MOUSEEVENTF_RIGHTUP Public Sub CreerNavigateur()
  8. Dim oNav As SHDocVw.InternetExplorer
  9. Dim oDoc As MSHTML.HTMLDocument
  10. Set oNav = New SHDocVw.InternetExplorer
  11. oNav.Visible = True
  12. 'oNav.navigate "http://google.fr"
  13. oNav.Navigate "http://www.abcbourse.com/download/historiques.aspx"
  14. ' Attente avec timeout de 10 s
  15. If WaitIE(oNav, 10) Then
  16.    ' 10 s écoulées et page non chargée
  17.    MsgBox "Time out!"
  18. Else
  19.    ' Page chargée, on continue
  20.    Set oDoc = oNav.Document
  21.    ' modification de la Valeur date
  22.    oDoc.getElementsByName("ctl00$BodyABC$strDateDeb" )(0).Value = "26/05/2015"    'la variable entre () => afficher la page et faire afficher la source rechercher la variable
  23.    oDoc.getElementsByName("ctl00$BodyABC$strDateFin" )(0).Value = "26/05/2016"
  25.    'modification du n° de la valeur
  26.    oDoc.getElementsByName("ctl00$BodyABC$txtOneSico" )(0).Value = "FR0000120222"
  28.    'activer la coche
  29.    oDoc.getElementsByName("ctl00$BodyABC$oneSico" )(0).Click
  31.    ' Clic sur bouton telecharger
  32.    oDoc.getElementsByName("ctl00$BodyABC$Button1" )(0).ClickAs Long = &H10

Reply

Marsh Posté le 29-05-2016 à 21:37:42   

Reply

Marsh Posté le 01-06-2016 à 10:30:21    

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

Reply

Marsh Posté le 01-06-2016 à 10:33:51    

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
Reply

Marsh Posté le 01-06-2016 à 11:02:12    

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

Reply

Marsh Posté le 01-06-2016 à 11:27:00    

bah désolé :heink:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed