Discussion :

[ainatar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

utilise plutôt l'API :

URLDownloadToFile

... une petite recherche sur le site te permettra de trouver des exemples...

[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.

[Megaxel]

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

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

[ainatar]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

[SfJ5Rpw8]

la ligne private Declare.... doit être tout en haut de ton module...

[ainatar]

merci bien à tous,

j'ai enfin reussi à faire fonctionner ce petit bout de code.

[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.

[ainatar]

Ben d'accord:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

: c'est quoi qui à changer par rapport au précédent code !

[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

[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)