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