VBA - Gestion de la fenêtre windows "Téléchargement de fichier"

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA - Gestion de la fenêtre windows "Téléchargement de fichier"

axelB

Bonjour,
Je suis novice dans l'utilisation de VBA et j'aurai besoin, pour un projet, de télécharger un fichier via Internet Explorer en utilisant VBA. J'ai pu voir qu'il existait différente méthode pour télécharger un fichier mais je suis contraint de passer par la fenêtre de téléchargement Windows et je n'arrive pas à cliquer sur le bouton Enregistrer.

voici mon code :
Option Explicit

Code :

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Sub Download()
Dim IE As Object
Dim acceuil, baseline As String
Dim lPopupHandle As Long
Dim hawnd As Long
Dim hawnd_button As Long
Set IE = CreateObject("InternetExplorer.Application" )
IE.Visible = True
acceuil = "http://www.mon-site.fr"
baseline = "http://www.mon-site.fr/consulterHistoDossier.do?idDossier=162216&typeAction=enregistrerDossier" 'fait directement apparaitre la fenêtre de téléchargement
IE.Navigate acceuil
IE.Visible = True
While IE.Busy
Wend
IE.Navigate baseline
While lPopupHandle = 0
DoEvents
lPopupHandle = FindWindowEx(0, 0&, "#32770", "Téléchargement de fichier" )
Wend
hawnd = FindWindowEx(0, 0&, "#32770", "Téléchargement de fichier" )
MsgBox hawnd
hawnd_button = FindWindowEx(hawnd, 0, "Button", "En&registrer" )
MsgBox hawnd_button

J'obtiens bien le Handle de mon bouton (en espérant utiliser les bons termes) mais je n'arrive pas a cliquer dessus...
Je me suis basé sur le code trouvé ici : http://www.developpez.net/forums/d [...] er-msgbox/
Si vous pouviez aussi m'aider pour choisir le dossier 'tempo' et lancer le téléchargement, cela m'aiderai beaucoup.
Merci d'avance.

Publicité

kiki29

Salut, de la même source mais d'un auteur différent, à adapter à ton contexte

Option Explicit

Private 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

Private Const ERROR_SUCCESS As Long = 0

Sub LancementProcedure()
DownloadFile "http://www.leSite/fichier.txt", "C:\fichier.txt"
End Sub

Public Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, sURL, sLocalFile, 0&, 0& ) = ERROR_SUCCESS
End Function

Message édité par kiki29 le 16-08-2011 à 18:42:31

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

axelB

J'étais déjà tombé sur cette solution. Mais lorsque que je l'utilise, j'obtiens une page de code en PHP et non mon fichier zip. J'ai bien essayer de trouver le lien direct du fichier dans ce code, mais il n'est pas dedans. De plus, je pense que ce n'est pas possible car le fichier généré contient dans son nom la date et l'heure où j'ai cliquer sur télécharger. Voilà pourquoi ma seule solution (à mon avis) est donc de passer par le contrôle de la fenêtre de téléchargement Windows...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA - Gestion de la fenêtre windows "Téléchargement de fichier"

Sujets relatifs
un fichier PDF qui s'ouvrirait dans une nouvelle fenêtre (pop up)	py2exe avec wxpython sur windows 2000
C++ Fermer l'execution d'un fichier.	VBA: La méthode de l'objet Worksheet a echoué
gestion des droits utilisateurs	Problème boucle VBA
Problème pour utiliser Vlookup en VBA	Perfo VBA
VBA - Problème avec ImageComboBox
Plus de sujets relatifs à : VBA - Gestion de la fenêtre windows "Téléchargement de fichier"

Page générée en 0.034 secondes