[VBA-E]Copie de fichier sur le Web

Version imprimable

16/03/2006, 16h45
ainatar

[VBA-E]Copie de fichier sur le Web
Bonjour à tous,

Je viens juste de me mettre au VBA Excel dans le cadre de mon emploi.

Il faut que je réalise un code permettant de faire une copie de tous types de fichier provenant d'internet.

Voila la fonction:
Code:

1 2 3 4 5 Sub Copy_files() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") fso.copyfile "URL;http://stage.free.fr/HPIM1821.jpg", "C:\test1\"
Ca marche bien tant que je reste sur le PC, mais des que je cherche sur Internet, ça plante.

Merci d'avance pour votre aide
16/03/2006, 17h41
SfJ5Rpw8

utilise plutôt l'API :

URLDownloadToFile

... une petite recherche sur le site te permettra de trouver des exemples...
17/03/2006, 09h39
ainatar

Je te remercie, mais tous ce que j'ai trouvés est pour une programmation en C. Je ne sais pas comment le traduire en VBA :( .

Un peu d'aide pour le code ne serai pas de refus.
merci bien.
17/03/2006, 09h42
Megaxel

http://www.developpez.net/forums/vie...downloadtofile

Obtenu en faisant une recherche avancée sur ce site...
:roll:

j'ai reussi, avec un peu de difficulté, à faire un bout de code (grace au divers topics), mais il ne fonctionne toujours pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
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 Sub Copy_File()
    Dim URL As String
    Dim Destination As String
 
    URL = "http://stage.anim.bowl.0506.free.fr/HPIM1821.jpg"
 
    Destination = "C:\Orona\Prog\fichiers\HPIM1821.jpg"
    URLDownloadToFile 0, URL, Destination, 0, 0 'chargement de l'image
 End Sub

j'ai un probleme de compilation.... :?

17/03/2006, 15h25
SfJ5Rpw8

la ligne private Declare.... doit être tout en haut de ton module...
17/03/2006, 16h45
ainatar

merci bien à tous,

j'ai enfin reussi à faire fonctionner ce petit bout de code. :P
17/03/2006, 16h47
Megaxel

Alors tu pourrais donner le code final qui marche.
C'est pratique pourles gens qui font des recherches sur le forum: à la fin du post qu'ils lisent, ils ont la solution à leur problème.
Merci.

Ben d'accord:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
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 ' a mettre en tout debut sinon il y a une erreur de compil
 
Private Sub Copy_File(SearchText)
 
    Dim URL As String
    Dim Destination As String
 
    URL = "http://www.google.fr/intl/fr_fr/images/logo.gif"
 
    Destination = "C:\fichiers\logo.gif"
    URLDownloadToFile 0, URL, Destination, 0, 0 'chargement de l'image
 
End Sub

et pardon pour l'oublie du code

17/03/2006, 16h59
SfJ5Rpw8

Citation:

Envoyé par ainatar

Ben d'accord:
et pardon pour l'oublie du code

:?: c'est quoi qui à changer par rapport au précédent code !
17/03/2006, 17h00
jmfmarques

Ben... Bravo !
Mais, hormis le format de l'image en cause, je ne vois rien de modifié par rapport au 1er code, déclaré comme ne fonctionnant pas !

oops ! croisés ! Bonjour
17/03/2006, 17h06
ainatar

En fait, la declaration de la fonction etait faite dans le corps du programme et non au debut, ce qui me generait un probleme de compil.
(entre la fonction et le Copy_File, il y a du code)