VBA: télécharger fichier de l’Internet

Mis à jour 14/12/2022|87 commentaires

Tout le monde a probablement déjà eu besoin de télécharger un ou plusieurs fichiers d'internet – des images, des vidéos, des PDF,… Mais peu de gens savent qu'il est possible de télécharger simplement un fichier avec Excel – en utilisant une fonction VBA.

Vous n'avez donc même pas besoin d'installer (ou même acheter) un logiciel de téléchargement. Excel fera l'affaire! Et gratuitement…

Télécharger des fichiers d'internet avec VBA

La fonction VBA suivante permet de télécharger un fichier (peu importe son type) à partir de l'internet. Vous n'avez besoin que du lien (URL) du fichier et de son emplacement.

En combinaison avec une boucle, cette procédure devient très puissante pour un téléchargement en masse des photos, documents, vidéos etc. car cette méthode est très rapide et ne requière pas d'interaction de l'utilisateur. Elle est donc idéale pour être automatisée.

Astuce: si les liens URL des fichiers en ligne ont une structure logique (par exemple img001.jpg, img002.jpg,…) ou si vous disposez de la liste des liens, il vous suffit de créer une logique pour attribuer un nom à utiliser pour la copie, une boucle et vous pouvez télécharger des dizaines de fichiers par minute! À utiliser avec modération. Le but n'est vraiment pas de s'en servir pour faire des DDOS!

Sachez aussi que des sites internet se protègent de plus en plus contre le "web scrapping". Il est donc possible que l'approche que je vous propose ne fonctionne pas sur tous les sites internet…

Le code de la fonction VBA qui télécharge des fichiers

Voici donc le code VBA de la fonction en question. Comme le code contient une déclaration ( Declare ), le code doit se trouver au début du Module qui contient le code VBA. Si ce n'est pas le cas, vous aurez droit à un message d'erreur de la par de l'éditeur VBA. La fonction utilise donc deux arguments de type String: SourceUrl (contenant l'URL du fichier distant) et FichierLocal (contenant le nom et l'emplacement de la copie).

Mise à jour: 13/12/2021 – le code a été adapté pour fonctionner également sur la version 64-bits d'Office.

Private Declare PtrSafe Function TelechargerFichierURL 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 Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10

Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean
TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Private Declare PtrSafe Function TelechargerFichierURL 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 Const ERROR_SUCCESS As Long = 0

Private Const BINDF_GETNEWESTVERSION As Long = &H10

Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean

TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS

End Function

Exemple: télécharger une image d'Internet

La procédure VBA qui suit montre comment utiliser la fonction de téléchargement TelechargerFichiersURL. Tant que l'on y est, autant prendre un cas réel! Disons que l'on veut télécharger le logo de "France Télévision" et le sauvegarder dans le dossier MesImagesDuNet sur le disque C:\. Rien de plus simple!

Il vous suffit l'URL de l'image et l'emplacement (chemin + nom du fichier) où vous voulez sauvegarder le fichier et le tour est joué. Aucune boîte de dialogue ne s'ouvre: dans cet exemple, le nom et le chemin à utiliser pour sauvegarder le fichier sont utilisés comme le second paramètre de la fonction.

N'oubliez pas que pour que le code qui suit fonctionne, vous devrez copier dans votre projet les deux codes VBA (l'exemple qui suit ET le code de la fonction plus haut).

Sub ExempleTelechargementInternet()
'par: Excel-Malin.com ( https://excel-malin.com )
On Error GoTo ExempleErreur

Dim fichier_internet As String
Dim fichier_local As String
fichier_internet = "https://www.france.tv/images/responsive/logos/channels/francetv-desktop.svg" ' <-- lien URL du fichier sur internet
fichier_local = "C:\Temp\francetv-desktop.svg" ' <-- destination locale (disque dur local, externe, clé usb,...)

Call TelechargerFichierInternet(fichier_internet, fichier_local)

MsgBox "Le téléchargement a réussi..."
Exit Sub 

ExempleErreur:
MsgBox "Une erreur s'est produite..."
End Sub

Sub ExempleTelechargementInternet()

'par: Excel-Malin.com ( https://excel-malin.com )

On Error GoTo ExempleErreur

Dim fichier_internet As String

Dim fichier_local As String

fichier_internet = "https://www.france.tv/images/responsive/logos/channels/francetv-desktop.svg" ' <-- lien URL du fichier sur internet

fichier_local = "C:\Temp\francetv-desktop.svg" ' <-- destination locale (disque dur local, externe, clé usb,...)

Call TelechargerFichierInternet(fichier_internet, fichier_local)

MsgBox "Le téléchargement a réussi..."

Exit Sub

ExempleErreur:

MsgBox "Une erreur s'est produite..."

End Sub

Cet exemple est fait pour le téléchargement d'une image mais vous l'aurez compris, vous pouvez tout aussi bien télécharger un PDF, un fichier Excel ou encore un fichier texte…

Voici donc un exemple concret de la fréquente sous-estimation d'Excel en tant qu'outil. Qui aurait cru pouvoir utiliser Excel pour télécharger des fichiers sur Internet? Et pourtant… VBA vous donne à disposition de nombreuses possibilités qui dépassent largement l'idée que le public se fait d'un "tableur"…

Quelques remarques utiles

Si vous comptez utiliser cette fonction plus souvent, il vous serait probablement utile de vérifier d'abord si le fichier en question se trouve vraiment sur internet. C'est possible et vous trouverez le code VBA, les explications et les exemples dans cet article: VBA: vérifier si fichier sur internet existe / si URL existe Il vous permettra également de tester la validité des adresses internet…
Il se peut que si le nom de fichier contient de caractères spéciaux (espace, ', ~ etc.) vous devriez d'abord assainir l'URL du fichier à télécharger. Vous pouvez facilement le faire grâce à la fonction VBA AssainirURL() que je vous ai préparée…
Faites aussi attention au protocole utilisé par le site: une adresse web commençant par HTTP ne va pas nécessairement donner le même résultat que la même adresse avec HTTPS!
Si vous n'arrivez pas à télécharger un fichier, vérifiez s'il ne se "cache pas" sur une page ou dans un dossier distant qui sont accessibles uniquement après une identification – cela peut parfois empêcher le script d'accéder au fichier.

Internet & Excel & fichiers: Pour aller plus loin

Tant que l'on est dans le thème de VBA et des fichiers, voici quelques articles qui pourraient vous intéresser:

Manipulation basique des fichiers en VBA (pour copier, supprimer, déplacer ou renommer des fichiers avec VBA)
Création des dossiers et sous-dossiers en VBA (si vous voulez classer les fichiers téléchargés selon un système)
Supprimer un dossier en VBA
Obtenir code source HTML d’une page web (pour en extraire les liens vers des fichiers à télécharger par exemple)
Tout sur l'utilisation de Excel en ligne

Et pour finir, quelques autres articles pratiques:

Toutes les fonctions VBA – liste complète des fonctions disponibles en VBA
Comment utiliser la fonction RECHERCHEV en VBA (tutoriel)
Protéger votre code VBA par un mot de passe
Suivre l'activité de l'utilisateur (LOG)

Auteur

Martin Hudec ( Excel-Malin.com )

Je suis analyste et développeur de systèmes, spécialisé dans l'automatisation des processus. Fort de nombreuses années d'expérience dans des institutions financières de renom, j'ai acquis une expertise approfondie en Excel et VBA. Créateur d'Excel-Malin.com, l'un des plus grands sites web francophones dédiés à Excel et VBA, je partage mes connaissances pour rendre ces outils accessibles à tous. En complément de mes compétences en Excel et VBA, je me suis tourné vers l'Intelligence Artificielle, notamment dans le domaine de l'automatisation et de l'application pratique dans les entreprises. Mon approche reste toujours pratique et orientée résultats, sans oublier ma passion pour simplifier les processus quotidiens avec des solutions efficaces.

244 articles

Laissez un commentaire Annuler la réponse

87 commentaires sur “VBA: télécharger fichier de l’Internet”

87 commentaires

Bruno G
19/07/2016, 09:28

Un simple merci pour ce code.
Que de temps vous m'avez fait gagner.
J'ai pu faire une boucle pour télécharger en un seul clic une centaine de fichiers.

Bon été à vous

Bruno

Répondre
- excel-malin.com Auteur de l’article
  20/07/2016, 01:01
  
  Merci pour votre commentaire. Je suis content que cela vous ait aidé.
  Cordialement, Martin
  
  Répondre
Calimero
24/08/2016, 01:11

bonjour,
Je n'y connais rien en VBA mais je suis un ancien du DOS et du BASIC donc autant ne pas parler de mon âge 😉
Quand je fais un copier-coller de l'exemple, j'ai le message "erreur de compilation Sub ou Function non définie".
J'ai un gros catalogue de fichiers avec des URL pointant sur des images et cette astuce m'aiderait beaucoup.
Cordialement,

Répondre
- excel-malin.com Auteur de l’article
  24/08/2016, 01:33
  
  Bonjour Calimero.
  Sur cette page, vous trouverez le code de la fonction VBA pour télécharger le fichier (le premier code sur la page) et l'exemple (deuxième code VBA de la page) qui utilise cette fonction (= le premier code).
  
  Vous devez donc copier/coller LES DEUX codes qui se trouvent sur cette page. En fait, l'exemple est juste une illustration comment utiliser la fonction – vous devez donc avoir copié la fonction dans votre macro avant de pouvoir utiliser l'exemple…
  
  J'espère que cela résout votre problème. Bonne chance avec les téléchargements.
  Bien à vous, Martin
  
  Répondre
  - Calimero
    24/08/2016, 12:01
    
    Bonjour,
    Merci pour cette réponse rapide. En effet, ça fonctionne. Le problème est que c'est sur un site sécurisé dont j'ai les codes. Je peux afficher et enregistrer les images une par une quand je vais sur le site en faisant un simple clic droit, enregistrer l'image etc… Voilà ce que je voudrais faire : J'ai une société et un commercial qui se promène avec des tonnes de catalogues. J'ai donc récupéré par le biais de mes fournisseurs leur catalogue sous format excel. Nous sommes dans une région où la 3g est loin d'être partout, je voulais donc faire un catalogue d'images pour mon commercial pour qu'il puisse tout avoir sur son portable : références, caractéristiques et images…
    Si vous connaissez une solution
    Cordialement,
    
    Répondre
    - excel-malin.com Auteur de l’article
      02/09/2016, 17:21
      
      Bonjour.
      Avez vous essayé de d'abord lancer Internet Explorer, se connecter sur le site avec le login et le mot de passe et une fois que vous êtes bien connecté, lancer la macro?
      
      Sinon, il y a une autre méthode mais c'est nettement plus compliqué: il faut utiliser VBA pour ouvrir une session de IE, aller sur la page, remplir le formulaire de connection, lancer la connection et ensuite télécharger les fichiers. Mais c'est un code particulier pour chaque cas spécifique. Voyez par exemple ici (commentaire n°6 de "Norie").
      
      J'espère que cela vous aidera…
      Bien à vous, Martin
      
      Répondre
Alex
26/08/2016, 14:17

Pouvez vous m'aider à insérer ce code de manière à ce que cela fonctionne svp ?
Je suis novice^^

Merci d'avance.

Alex

Répondre
- excel-malin.com Auteur de l’article
  28/08/2016, 23:46
  
  Bonjour Alex,
  vous devez copier/coller le code sur cette page dans un "Module" dans l'éditeur VBA. Ce serait un peu longue pour tout expliquer ici et comme le tutoriel général sur le VBA sur lequel je travaille pour le moment n'est pas encore fini, je vous ai préparé un fichier où il vous suffit d'écrire l'URL du fichier et la destination et de cliquer sur un bouton pour effectuer le téléchargement.
  
  Si vous voulez voir le code et comment il est utilisé, vous devez aller dans l'éditeur VBA (pour y accéder, appuyez Alt + F11 quand vous êtes dans le fichier Excel).
  Le fichier se trouve ici: exemple_telechargement_internet.xlsm
  
  J'espère que cela va vous aider. Cordialement, Martin
  
  Répondre
  - Alex
    30/08/2016, 16:19
    
    Bonjour,
    
    Impeccable merci beaucoup 🙂
    
    Répondre
    - excel-malin.com Auteur de l’article
      31/08/2016, 00:20
      
      avec plaisir…
      
      Répondre
      - Anonyme
        20/07/2020, 19:36
        
        Grand merci !
  - vandenabeele
    02/09/2016, 15:52
    
    Bonjour,
    J'ai essayé votre code/fichier.
    J'ai bien un message de téléchargement réussi mais lorsque j'ouvre le ficheir de destination, aucun élément n'a été enregistré…
    Pouvez-vous m'aider?
    merci beaucoup pour votre aide
    
    Répondre
    - excel-malin.com Auteur de l’article
      02/09/2016, 17:12
      
      Bonjour,
      c'est difficile d'estimer à distance ce qui ne marche pas. Si vous essayez le fichier que j'ai préparé dans un des commentaires pour Alex:
      1) essayez de télécharger différents fichiers (par exemple: https://excel-malin.com/wp-content/uploads/2016/04/Calendrier_2018_France_horizontal.png mais aussi d'autres sites)
      2) essayez de les sauvegarder dans différents dossiers
      
      Vu que le code fonctionne pour presque tous les utilisateurs, je crois que ce sera lié à votre machine:
      * avez-vous les droits nécessaires pour écrire dans le dossier en question?
      * vous essayez de le sauvegarder sur un disque local ou sur le réseau?
      * …
      
      Si vous ne trouvez vraiment pas, contactez-moi sur contact@excel-malin.com avec les infos sur votre système, le(s) fichier(s) que vous voulez télécharger et les dossiers où vous voulez les sauvegarder – et je regarderai ce que je peux faire.
      
      Répondre
    - jike
      05/09/2016, 11:47
      
      Merci pour votre réponse.
      Cela fonctionne au niveau de l'identification. Le code que je souhaite doit ouvrir le lien internet qui est dans la colonne "I2", télécharger le fichier et le stocké dans le lien qui se trouve dans la colonne "M2".
      
      Donc à la place de mettre l'adresse direct du fichier je l'ai modifié comme cela :
      
      fichier_internet = Range("I2").Value
      fichier_local = Range("M2").Value
      
      Comment créer une boucle pour lire toute la colonne (télécharger I3 et stocker à l’emplacement M3; télécharger i4 et stocker à l'emplacement M4;…).
      
      Merci d'avance pour votre aide;
      
      J. (novice en vba :-))
      
      Répondre
      - excel-malin.com Auteur de l’article
        07/09/2016, 08:36
        
        Bonjour Jike,
        ceci devrait faire l'affaire:
        
        Sub BoucleTelechargement() For LigneDeLien = 2 To Range("I" & Rows.Count).End(xlUp).Row fichier_internet = Range("I" & LigneDeLien).Value fichier_local = Range("M" & LigneDeLien).Value
        Call TelechargerFichierInternet(fichier_internet, fichier_local)
        Next LigneDeLien End Sub
martin A
02/09/2016, 10:23

un immense MERCI!

Répondre
- Chris
  13/10/2016, 10:35
  
  Bonjour, je ne dois vraiment pas être doué !! j'essaie en vain le code je n'y arrive pas. Je m'explique j'ai 5111 url (photos de mon grossistes) que je voudrais ouvrir en une seule fois et enregistrer. mais je galère terriblement, si l'on pouvait m'apporter une aide ce serait des plus sympathiques
  Bien a vous
  
  Répondre
  - excel-malin.com Auteur de l’article
    13/10/2016, 13:53
    
    Bonjour Chris,
    je vous ai fait un petit outil pour voir si cela fonctionne.
    Vous pouvez le télécharger ici
    
    Il suffit de remplacer les valeurs exemples par vos valeurs (le dossier où les fichiers doivent être stockés & la liste des URL). Vous cliquez sur le bouton et le tour est (devrait être) joué.
    Attention, s'il y a des images qui ont le même nom, il vont se "surécrire". Si c'est le cas, faites moi signe et je verrai ce que je peux faire.
    
    PS: le code VBA est déverrouillé donc vous pouvez y jeter un coup d'œil.
    Cordialement, Martin
    
    Répondre
Lucien
21/11/2016, 09:31

Bonjour,

Tout d'abord merci pour votre code, cela fonctionnait parfaitement !

"Fonctionnait" car en effet, la semaine dernière je m'en suis servi à merveille mais voilà qu'en ce début de semaine cela ne fonctionne plus, j'ai bien le message "Le téléchargement a réussi" mais aucun fichier n'a en fait été téléchargé.

Le contexte est que j'ai besoin de mettre à jour un effectif de personnel avec le planning disponible sur l'extranet de mon entreprise, j'allais donc chercher le planning avec votre code et je pouvais ensuite l'ouvrir directement dans excel. Mais depuis aujourd'hui cela ne fonctionne plus, en tout cas sur le réseau entreprise, lorsque j'utilise ma connexion de données personnelle aucun problème.

Est-il donc possible que le service informatique ait-pu bloquer certaines fonctions de VBA ?

Merci par avance,

Lucien

Répondre
- excel-malin.com Auteur de l’article
  21/11/2016, 10:42
  
  Bonjour Lucien,
  d'après ce que vous dites, c'est presque certain que c'est votre service IT qui a bloqué cette fonctionnalité.
  Surtout si le code fonctionne toujours comme il faut sur votre connexion privée…
  
  Il est possible qu'il aient décelé une activité inhabituelle et l'ont bloqué – en tout cas, c'est ainsi que fonctionne des services informatiques des (grandes) entreprises.
  
  Il est toujours possible, surtout que cela n'a commencé qu'aujourd'hui, qu'il s'agit simplement d'un problème de connexion de votre réseau d'entreprise. À votre place, j'essaierait encore par ex. demain pour être sûr que le "problème" persiste.
  
  Bien à vous,
  Martin
  
  Répondre
  - Lucien
    21/11/2016, 13:17
    
    D'accord merci, je ne pensais pas que l'on pouvait bloquer indépendamment de telles choses. Je réessayerais quand même demain mais j'ai peu d'espoir.
    
    Lucien
    
    Répondre
Beneroz
02/12/2016, 12:55

Bonjour,
je trouve cette fonction super intéressante et elle m'a beaucoup dépanné dans mes projets.

Cependant je voulais savoir si en vba il était possible d'utiliser le même système pour télécharger un fichier dont on ne connait pas le type (.pnj ou .bmp) et le nom à l'avance mais juste en possédant un lien Url de type : http://www.bidule/dossier/?id=558

Bien cordialement ^^

Répondre
- excel-malin.com Auteur de l’article
  05/12/2016, 09:43
  
  Bonjour Beneroz,
  merci pour votre commentaire.
  Ce code-ci a besoin de l'url exact du fichier – donc il ne fera pas tout seul ce dont vous avez besoin.
  Ce que vous pouvez faire, c'est de télécharger le code source de la page en question et en extraire l'URL du fichier dont vous avez besoin.
  
  Voici le code VBA pour télécharger le code html d'une page web
  et ici le code VBA pour extraire une chaîne de caractères (donc le url du fichier)
  
  J'espère que cela va vous aider.
  Bien à vous, Martin
  
  Répondre
  - Beneroz
    05/12/2016, 10:03
    
    Merci pour les liens!
    On va essayer quelques trucs, si je trouve quelque chose de valide et pas trop compliqué, je le partagerai ici ^^
    Bonne journée,
    Cordialement
    
    Répondre
Brege Senda
28/06/2017, 11:17

Mon vocabulaire est pauvre pour vous exprimer mon respect, Autant de merci pour vous #Martin pour votre aide,

Répondre
- excel-malin.com Auteur de l’article
  28/06/2017, 13:32
  
  Merci beaucoup pour ce message.
  Je suis content de savoir que j'ai pu vous aider.
  Bien à vous, Martin Hudec
  
  Répondre
Chticurieux
25/09/2017, 15:10

Bonjour
Astucieux, mais …. N'y a-t-il pas utilisation en sous-main d'IE ??? Et dans ce cas risque de récupérer une ancienne version toujours dans son cache ( malgré la valeur de BINDF_GETNEWESTVERSION As Long = &H10) ???
C'est ce qui m'est arrivé. J'ai vidé le cache et c'est redevenu la bonne dernière version.
merci

Répondre
- excel-malin.com Auteur de l’article
  28/09/2017, 08:59
  
  Bonjour,
  cela utilise la librairie Urlmon.
  Il se peut qu'à l'interne, cette librairie utilise IE mais allez savoir ce qui se cache sous le capot 🙂
  Plus d'infos sur cette fonction (URLDownloadToFile) / librairie (Urlmon.lib) ici:
  https://msdn.microsoft.com/fr-fr/library/ms775123(v=vs.85).aspx
  J'espère que cela vous aide. Bien à vous, Martin
  
  Répondre
  - Chticurieux
    28/09/2017, 09:23
    
    Bonjour,
    J'ai essayé plusieurs fois ; à chaque, le cache IE ( vidé) se remplit. Ce n'est pas le premier que je remarque utiliser IE, en espérant qu'il y soit !! (ou qu'on ne l' pas démonté, auquel cas … ???) Mais en tout cas, merci d'avoir mis cette fonction en évidence.
    
    Répondre
Jean-Marc
26/12/2017, 16:13

Excellente astuce, mais ça ne marche pas avec Environ("TEMP") à la place de "c:\temp"
Pourquoi ?

Répondre
- Jean-Marc
  28/12/2017, 08:18
  
  Autre remarque : il n'y a pas de message d'erreur lorsque le fichier distant n'est pas trouvé. Comment faire pour qu'il y en ait un ?
  
  Répondre
  - Jean-Marc
    28/12/2017, 08:29
    
    J'ai trouvé tout seul : il suffit de tester la valeur de retour de la fonction ! Si c'est true le fichier a été trouvé, sinon c'est false.
    Avec un if then on peut donc afficher un msg d'erreur…
    
    Répondre
    - excel-malin.com Auteur de l’article
      29/12/2017, 10:59
      
      Bonjour Jean-Marc,
      c'est exactement cela! Ravi que vous ayez trouvé par vous même…
      
      M.
      
      Répondre
- excel-malin.com Auteur de l’article
  29/12/2017, 10:58
  
  Bonjour Jean-Marc,
  c'est bizarre, pour moi cela fonctionne (je suis sous Win 10)…
  Vous n'oubliez pas d'ajouter le "backslash" entre le dossier temporaire et le nom du fichier?
  Par exemple: fichier_local = Environ("temp") & "\LogoFrance2.png"
  
  Bien à vous, Martin
  
  Répondre
  - Jean-Marc
    29/12/2017, 16:38
    
    Oui c'est cela j'avais oublié le backslash 🙂
    Bonnes fêtes !
    Cordialement
    
    Répondre

Axurit
04/01/2018, 14:12

merci beaucoup pour votre aide, en faite les images n’étaient que des exemples, mais je pense pouvoir me débrouiller.
Je vous tiendrais informé.

Bonne journée
excel-malin.com Auteur de l’article
04/01/2018, 14:25

Bonne chance! 😉
Axurit
05/01/2018, 11:32

A que coucou, c'est encore moi !!

Je suis a l'étape 2, j'ai réussis à extraire le code html, cependant, je ne vois pas comment extraire plusieurs nom de fichier.
j'ai trouvé les balises et ça me donne: fichier1
cependant j'ai que le fichier1 qui ressort, je pense devoir lui dire que si: fichier 2 = fichier1 alors chercher plus loin, mais je vois pas comment lui dire de continuer dans la chaîne de caractère.
Je veux bien un petit peu d'aide encore :D.

Cordialement
Axurit
06/01/2018, 14:35

Bonjour,

Bon j'ai essayé pas mal de chose mais je ne vois vraiment pas comment poursuivre dans la chaîne de caractères.
Je vais devoir attendre votre aide.

Dans l'attente de vous lire.

Cdt
Axurit
07/01/2018, 20:09

yaaaattaaaaa !!!

Bonjour,
Apres des heures infructueuse je suis passe sur autre chose avec succes.
Je m'explique, vu que j'avais mais balises, j'ai remplace celle ci par un caractere special. J'ai ensuite splitter en fonction de celui-ci et j'ai pu recupere tous mes fichier un recuperant un resultat sur deux du split.
Si sa t'interresse je peux m'etre le code.

Encore merci pour tous et a bientot.
Cdt

Don pépé
28/02/2018, 09:49

bonjour,
votre function fonctionne très bien hors-mis pour télécharger des fichier zip
Le problème est qu'il télécharge bien mais le fichier est endommager donc pas utilisable.
j'ai essayer de passer directement par mon navigateur sans excel et le fichier est correct.
Pourriez-vous m'aider à la faire fonctionner pour télécharger un .zip svp.

Répondre
- AXuRiT
  28/02/2018, 09:55
  
  Bonjour,
  
  C'est étonnant car je m'en sers aussi pour télécharger des fichiers au format zip (enfin .tar.bz2).
  Cela fonctionne parfaitement, peut etre la nuance de l'exentention.
  
  Avec quel logiciel l'ouvrez vous ?
  
  Cdt
  
  Répondre
  - Don pépé
    28/02/2018, 10:47
    
    Bonjour,
    Merci pour votre réponse.
    J'ouvre mes archive avec 7zip.
    Vous entendez quoi par nuance de l'exentention??
    
    cdt
    
    Répondre
- excel-malin.com Auteur de l’article
  28/02/2018, 10:56
  
  Bonjour,
  juste pour info, vous rencontrez ce problème sur votre ordi personnel ou sur votre lieu de travail?
  
  Car dans les entreprises, les départements IT instaurent des règles pour leur pare-feu pour protéger le réseau. Et votre action présente deux risques: 1° = automation & 2° = fichier ZIP en soi (qui peut contenir d'autres fichiers, potentiellement nuisibles). Donc cela ne m'étonnerait pas que cette manière de télécharger des fichiers zip soir interdite.
  
  Un deuxième point, vérifiez le suffixe du fichier – les deux fichiers (celui téléchargé "manuellement" et celui téléchargé via VBA) ont-ils le même suffixe?
  
  Bàv, Martin
  
  Répondre
  - Don pépé
    28/02/2018, 11:03
    
    Bonjour,
    merci pour votre réponse.
    Alors pour ma part j'utilise un ordi perso.
    Les deux fichier sont identique, je vous laisse l'adresse pour tester si vous voulez ( le zip contient des modules vide )
    http://www.donpepe.hebergratuit.net/Maj/GS/GS-1.zip
    
    Il y a peu être une référence à activer dans excel ??
    
    cdt
    
    Répondre
    - AXuRiT
      28/02/2018, 12:38
      
      Bonjour,
      
      Je viens d'essayer et en effet le fichier n'est pas valide…
      Honnêtement je ne vois pas d'ou cela viens, car moi cela fonctionne. Essayez peut être avec un fichier .rar.
      Martin vous aidera surement plus que moi.
      
      Bonne chance.
      Cdt, Jérémy
      
      Répondre
      - Don pépé
        28/02/2018, 15:38
        
        Re,
        Bon problème résolus sa venais de mon hébergeur.
        merci a vous deux d'avoir pris le temps pour essayer de régler mon problème.
        
        Au passage grand bravo pour le site 😉
      - excel-malin.com Auteur de l’article
        28/02/2018, 15:41
        
        Chouette…
        J'y avais justement pensé et je voulais faire le test ce soir – prendre votre fichier, l'uploader sur mon site et essayer le code VBA de téléchargement pour voir si le problème ne se situe pas au niveau du serveur distant… Finalement, vous avez été plus rapide 🙂
        
        Et merci pour vos compliments. Bien à vous, Martin
Don pépé
01/03/2018, 10:49

Bonjour,
Me revoilà 😉
J'avais une petite question.
Je voulais savoir si c'était possible de tester l'adresse avant de télécharger pour voir si le fichier que l'on désir télécharger existe vraiment.

Cdt Pépé

Répondre
- excel-malin.com Auteur de l’article
  01/03/2018, 12:14
  
  Bonjour Pépé,
  Oui, c'est (bien sûr 😉 ) possible… Et comme j'ai trouvé votre question pertinente et probablement utile aux autres, j'en ai fait un post à part.
  Vous le trouverez ici: VBA: vérifier si fichier sur internet existe / si URL existe
  
  J'espère que cela répond à votre question. Normalement oui 😉
  Bàv, Martin
  
  Répondre
  - Don pépé
    02/03/2018, 07:41
    
    Bonjour,
    Oui cela me convient parfaitement. merci a vous.
    
    cdt Pépé
    
    Répondre

Cyber-PAPY
04/12/2019, 20:50

Bonjour Martin

Merci de vous préoccuper de mon souci.
J'ai donc fait l'essai avec ce nouveau code sur les 30 fichiers cités plus haut.

Grosse déception seulement six images chargées. Les mêmes que précédemment.
J'utilise toujours Excel 2000 et Windows XP Service Pack 3
Quel système avez vous?

Cordialement

CP

Répondre
- excel-malin.com Auteur de l’article
  04/12/2019, 20:59
  
  Bonsoir,
  je suis en Windows 10, Office 365…
  Donc en effet, deux systèmes très différents… Cela explique peut-être pourquoi cela marche pour moi et malheureusement pas pour vous.
  
  Peut-être si quelqu'un d'autre qui lis ces lignes pouvait tester à son tour…
  
  Bàv, Martin
- Cyber-PAPY
  07/12/2019, 11:10
  
  L'évolution des systèmes d'exploitation est effectivement mon souci.
  
  Pour des raisons de compatibilité avec mes programmes professionnels développés personnellement je me dois de rester sur cette configuration.
  
  Quoi qu'il en soit, merci de cette aide qui profitera peut être à d'autres .
  
  A titre d'encouragement je vous invite à lire l'histoire de Martin Le Malin.
  ( Nom qui vous conviendrait d'ailleurs fort bien )
  Elle est en ligne ici en 52 albums
  http://www.martinlemalin.com/martinonline.html
  
  Les images se téléchargent très bien par Excel , même chez moi.
  
  Bien amicalement
  Cyber-PAPY

eric
08/03/2020, 13:27

Bonjour,

je viens de copier en début de module votre code, et malheureusement, le premier "Private Declare" est en rouge …

J'utilise Excel 365 et suis sous W10;

D'où peut provenir mon problème ?

Merci d'avance

Eric

Répondre
- excel-malin.com Auteur de l’article
  19/03/2020, 14:29
  
  Bonjour Eric,
  cela pourrait être la différence entre la version 32 bit et 64 bit de Office.
  
  Essayez de remplacer la première ligne du code:
  Private Declare Function TelechargerFichierURL Lib "urlmon" _
  
  par
  
  Private Declare PtrSafe Function TelechargerFichierURL Lib "urlmon" _
  
  Est-ce que cela marche?
  
  Cordialement, Martin
  
  Répondre
  - Michel
    07/11/2020, 10:54
    
    Tip top avec la version 64 bits il faut déclarer comme ça autrement ça ne fonctionne pas (ajout de PtrSafe)
    Private Declare PtrSafe Function TelechargerFichierURL Lib "urlmon" _
    
    Répondre
max auger
04/05/2020, 20:34

impossible avec cette methode de telecharger des fichiers de plus de 4Go

Répondre
- excel-malin.com Auteur de l’article
  04/05/2020, 20:42
  
  Bonjour Max,
  je dois avouer que je n'ai jamais essayé de télécharger un fichier de 4 Go 🙂
  
  Répondre
  - Thomas
    18/06/2020, 16:33
    
    Bonjour,
    
    Ce code ne marche pas pour le premier fichier .csv à l'adresse suivante :
    https://www.swissgrid.ch/dam/dataimport/prl-srl/2020-PRL-SRL-TRL-Ergebnis.csv
    
    Auriez-vous une idée? Le fichier est bien téléchargé en local mais est vide.
    Merci de votre retour.
    
    Répondre
    - excel-malin.com Auteur de l’article
      18/06/2020, 16:57
      
      Bonjour Thomas,
      c'est bizarre. Je viens de l'essayer avec le même code et le fichier de +/- 15 Mo s'est bien téléchargé…
      
      Si vous copiez le URL directement dans votre browser? Le fichier se télécharge?
      Cordialement, Martin
      
      Répondre
      - Thomas
        18/06/2020, 17:30
        
        Il est bien téléchargé, mais il est quasiment vide. Ce n'est pas le cas chez vous? Merci pour votre retour rapide.
      - excel-malin.com Auteur de l’article
        18/06/2020, 21:37
        
        Non, chez moi il a 15,8 Mo et il contient 156.428 lignes…
        Bizarre…
      - Thomas
        19/06/2020, 13:24
        
        Ah ok chez moi il n'y a qu'un fichier de 15.8 KB et que la première ligne remplie… Bizarre
        Merci quand même
Fox
22/08/2020, 11:53

Bonjour,

Merci pour ce code.
Cependant, comment faire pour automatiser en VBA quand le fichier à télécharger apparait dans une prompt Box " Voulez-vous télécharger le fichier truc à partir de http://www..." svp?
car la je n'ai pas l'url du fichier et impossible de le trouver dans le DOM du site car en dehors de IE apparemment…

Merci par avance.

Cordialement

Répondre
Fred
10/11/2020, 09:51

Bonjour,

Merci beaucoup pour votre code. Il fonctionne à merveille lorsque je travaille depuis la maison. En revanche cela ne fonctionne pas lorsque je travaille depuis le réseau de l'entreprise. Peut-être celle-ci limite la taille des fichiers téléchargés. Peut-on y ajouter des informations de proxy ou sécurité quelque part?

Fred

Répondre
philgoodgood
17/01/2021, 15:41

Un big gros MERCI pour toutes ces fonctions VBA.
Aucune erreur sous windows 64b – Excel 2016 64b.
Je télécharge des couvertures (cover) pour ma gestion de BD comics sous android.
☺

Répondre
Théo
26/02/2021, 12:25

Un grand merci pour ce code si pratique !

Cependant j'ai un problème concernant le téléchargement d'un fichier. Lorsque je réutilise le lien de téléchargement de mon fichier quand je le fais de manière classique (clic gauche sur un bouton présent sur le site) celui ci ne fonctionne plus….
Quand j'essaye de le retélécharger, cette fois-ci j'ai un autre lien qui a été utilisé.

Ma question est donc, est il possible de demander à excel de cliquer sur un bouton sur une page web pour télécharger le fichier voulu ?

Merci d'avance et en vous souhaitant une bonne fin de journée !

Répondre
- excel-malin.com Auteur de l’article
  02/03/2021, 09:21
  Bonjour Théo,
  pour "cliquer sur un bouton", c'est faisable mais c'est compliqué – il vaut passer par le VBA de Internet Explorer (ou maintenant de Edge)…
  Sinon, vous pouvez aussi:
  
  extraire le code source (html) de la page web
  
  ensuite extraire de ce code le lien exact qu'il vous faut
  
  utiliser le lien du fichier avec le code qui se trouve sur cette page
  
  Donc ce n'est pas impossible. Uu peu fastidieux mais c'est jouable…
  Cordialement, Martin
  Répondre
GABINAUD
13/03/2021, 10:25

Bonjour
J'ai testé la macro mais ça ne fonctionne pas trop. Le fichier que je souhaite récupérer sur internet est téléchargeable après choix d'une liste déroulante.

Répondre
- excel-malin.com Auteur de l’article
  15/03/2021, 15:09
  
  Bonjour, pour que le code de cette page-ci fonctionne, il vous faut l'URL direct du fichier à télécharger.
  S'il y a une liste déroulante, c'est que cela va probablement impliquer du javascript et là il vous faudrait un moyen de récupérer le URL pour pouvoir le télécharger ensuite avec VBA.
  
  Répondre
Swid63
23/11/2021, 16:21

Bonjour et merci beaucoup d'avoir partagé cette méthode de télécharger des fichiers présents sur internet. Avez vous une astuce qui permettrait de télécharger un fichier sur internet mais dont on ne connait que le début du nom ?
Par exemple si je sais que sur une page il existe un et un seul fichier dont le nom commence par "Test_20211123" mais que je ne connais pas le nom complet (qui correspond en fait à l'heure / minute / seconde de l'extraction), y a-t-il une possibilité de trouver ce fichier et de le télécharger ? La fonction "Dir" ne semble pas fonctionner sur les liens url….
Par avance merci de votre aide

Répondre
- excel-malin.com Auteur de l’article
  23/11/2021, 16:43
  Bonjour,
  en effet, Dir ne fonctionne pas avec des emplacements sur un serveur.
  Mais ce que vous demandez est tout de même possible – même si un peu fastidieux…
  
  D'abord il faut extraire le code HTML de la page où se trouve le lien (voir le code VBA pour le faire)
  
  Ensuite, vous essayez de repérer où le nom complet se trouve dans ce code HTML et par quoi il est délimité
  
  Après vous allez extraire ce nom complet avec le code VBA: Extraire une chaîne délimitée
  
  là, vous disposez du nom complet et vous pouvez l'utiliser pour télécharger le fichier…
  
  J'espère que cela va vous aider…
  Cordialement, Martin
  Répondre
  - Swid63
    24/11/2021, 10:54
    
    Merci beaucoup car la procédure marche bien quand le nom du fichier est dans le début du code HTML de la page. Par contre j'ai une erreur qui m'est remontée "Incompatibilité de type" quand je recherche un nom de fichier qui est plutôt sur la fin du code HTML. Savez vous si c'est dû à une limite en nombre de caractères que peut accepter la fonction "ExtraireChaineDelimitée" ? Si oui, avez vous une idée de comment je pourrai contourner le pb ?
    
    Par avance merci pour votre aide
    
    Répondre
    - Swid63
      24/11/2021, 15:44
      
      Bon, finalement je ne sais pas ce qui bloquait. L'erreur ne venait pas de la longueur du champ mais, dans certains cas uniquement, de la limite de fin que je paramétrais. J'ai contourné l'erreur car je connaissais le nombre de caractères recherchés avec un simple left().
      Merci beaucoup en tout cas ces fonctions sont très utiles !
      
      Répondre
      - excel-malin.com Auteur de l’article
        24/11/2021, 21:10
        
        Content d'entendre que vous avez pu résoudre votre problème et que mon aide ait été utile!
Duflot Patrice
19/08/2023, 01:10

Bonjour
J'ai testé votre macro qui marche très bien
Je télécharge des fichiers pdf et jpg mais le problème c'est que je n'arrive pas à ouvrir les fichiers
J'ai remarqué que la taille du fichier n'est pas la même quand je charge manuellement et j'utilise la macro
Je vous mets un lien pour essayer
https://www.helloasso.com/associations/les-pieds-mobiles/adhesions/inscription-2023-2024/carte-adherent?cardId=65433531&ag=65433531

Cordialement

Répondre