Rapport de message :*
 

Re: En VBA gérer la boite windows 'Télécharger un fichier'

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