Titre du sujet : Re: En VBA gérer la boite windows 'Télécharger un fichier' par JackyAmiens le 02/10/2009 11:19:16
Bonjour Guy,
A partir de tes renseignements, j'ai effectué un test sur un fichier présent sur une page perso.
Voici le code du module excel
'----------------------Début------------------------------
'API de telechargement - A mettre dans les déclarations de var
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
Sub telecharge()
Dim errcode As Long
Dim URL As String
Dim LocalFilename As String
'On spécifie le chemin de l'image web
URL = "http://pagesperso-orange.fr/j.bruiant/Glisy1/pages/DamesPic.jpg"
'On spécifie le chemin ou l'on veut enregistrer ce fichier
'(vb.app.path donne le chemin du dossier de l'appli vb)
LocalFilename = "F:\TPE_EtudeOpit\DamesPic.jpg"
'On appelle la fonction api de téléchargement
errcode = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If errcode = 0 Then
'Message de confirmation que l'image a bien été téléchargée
MsgBox "Fichier reçu"
'Comme on a bien reçu l'image on peut la charger
Else
'Sinon on affiche le message d'erreur
MsgBox "Echec"
End If
End Sub
'--------------FIN--------------------------------
Super cela fonctionne pour la récupération d'un fichier quelconque.
Mon problème n'est pourtant pas résolu.
Le lien suivant
'http://boutique-datafactory.com.francetelecom.fr/page/catalogue?p=5&d=6&u=1&r=481&dl=10
n'est pas le fichier.
Il existe un code (script) à l'intérieur de la page qui pointe sur cet élément.
Pour plus de compréhension, je joins la fichier htlm de la page.
Si l'on clique sur l'un des éléments Commerce_Marché_PME l'on provoque l'affichage de la page
qui va provoquer l'apparition de la boite de téléchargement.
Donc, j'ai amélioré ma connaissance sans atteindre le nirvana
|