Télécharger un fichier sur internet grâce à une macro VBA

Version imprimable

07/03/2014, 16h56
geotz

Télécharger un fichier sur internet grâce à une macro VBA

Bonjour,

Je souhaite réaliser un fichier excel tout simple, qui à chaque actualisation va télécharger le fichier .csv ci-contre:

https://www.banque-france.fr/fileadm...page3_quot.csv

Je voudrais juste que dès que je clique sur un bouton (que j'aurais dessiné et placé sur ma Feuil1), le fichier se télécharge et se copie directement sur la Feuil1 à partir de la cellule A1.

Si une copie du fichier téléchargé s'effectue sur le disque dur, il faudrait l'effacer également.

J'ai bien tenté de compiler des macros existantes, mais je n'arrive à chaque fois qu'à ouvrir mon fichier .csv dans Internet Explorer....

Si quelqu'un à la macro qui peut créer ce fichier je le remercie par avance.

Merci pour votre aide :)
07/03/2014, 17h06
Marc-L

Bonjour, bonjour,

tout fichier compatible peut s'ouvrir directement dans Excel, même via le net ‼

Donc directement l'ouvrir manuellement et tout en utilisant l'Enregistreur de macros, le code est livré sur un plateau !
07/03/2014, 17h25
geotz

Merci Marc-L pour ta réponse.

Le pb est que j'ai déjà essayé cette solution mais:

- par Internet Explorer, si je souhaite enregistrer le fichier, il ne s'enregistre pas en .csv mais en .txt
Du coup, impossible de l'importer dans Excel par la suite convenablement

- Le fichier s'enregistre bien en .csv mais quand je le télécharge via Google Chrome... Or ces manips ne se retrouvent pas dans le code à la fin de l'enregistrement...

S'il y a un code général je suis donc preneur :)
07/03/2014, 17h47
SfJ5Rpw8

Citation:

Envoyé par geotz

Merci Marc-L pour ta réponse.

Le pb est que j'ai déjà essayé cette solution mais:

- par Internet Explorer, si je souhaite enregistrer le fichier, il ne s'enregistre pas en .csv mais en .txt
Du coup, impossible de l'importer dans Excel par la suite convenablement

- Le fichier s'enregistre bien en .csv mais quand je le télécharge via Google Chrome... Or ces manips ne se retrouvent pas dans le code à la fin de l'enregistrement...

S'il y a un code général je suis donc preneur :)

Bonjour, relis la réponse à Marc-L

Citation:

Envoyé par Marc-L

Bonjour, bonjour,

tout fichier compatible peut s'ouvrir directement dans Excel, même via le net ‼

Donc directement l'ouvrir manuellement et tout en utilisant l'Enregistreur de macros, le code est livré sur un plateau !

il n'est question ni de Chrome ni d'Internet explorer
07/03/2014, 17h56
geotz

Alors soit c'est la fin de semaine, soit je ne comprends rien...

Il s'agit de créer une requête web? Non parce que je vois pas du tout la procédure à suivre avec l'enregistreur de macro si je ne dois pas ouvrir de page internet...
07/03/2014, 19h36
Marc-L

Merci bbil ‼

geotz, tu n'as donc rien relu ! :roll: J'ai juste évoqué l'ouverture directe du fichier !

Comment fais-tu pour ouvrir un classeur depuis Excel ?
Et au lieu de naviguer sur ton disque dur, tu entres directement la Web adresse du fichier ‼ (Copier / Coller du lien)
Vraiment pas compliqué d'ouvrir un fichier Excel …

heu

Bonjour
marcL et bbil t'on dis comment faire cette manipulation

je repete
Code:

1 2 3 4 5 6 'https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv Sub ouvre_fichier() fichier = "https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv" Workbooks.Open fichier End Sub
cela dit la restitution ne traduit peut être pas l'intention très souvent avec un ".csv"

montre moi comment les entêtes de colonne doivent être ainsi que la première ligne sur le sheets je te ferais un exemple

2 solutions completes

Bonjour

comme je te l'ai dis précédemment les fichiers csv ne sont a coup sur restitués correctement sur le sheets l'ors de la copie
(plusieurs données sur une même cellule, des cellules vides ,etc....)

alors la fonction"workbooks.open" a ces limetes surtout si l'on veut travailler sur la grille par la suite

alors comme j'aime beaucoup faire ce genre d'exercice ,je t'ai concocté 2 solutions

je doit dire avant que si tu avais fait une recherche dans les contributions tu aurais trouvé certainement un début de piste puisque une de mes fonctions utilisée se trouve justement dans une de mes contributions
pour l'occasion aussi j'en est créé une nouvelle qui fera certainement son bout de chemin ,on en reparlera pour la 2 Emme solution
1 ère solution
on va donc récupérer le texte du csv avec ma fonction getcodesource
et on va se servir de la fonction "split" pour charger une variable tableau
puis la retranscrire sur le sheet
1 er code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 'https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv Public Function GetCodeSource(sURL) Dim Lapage_en_HTML As Object Set Lapage_en_HTML = CreateObject("Microsoft.XMLHTTP") 'instancie l'object Lapage_en_HTML.Open "GET", sURL & "?nocache= + Math.random()", False 'ouvre l'url dans l'Object Lapage_en_HTML.Send ' envoie la requette 'selon si la variable "au_format_text" est a true ou falsele texte de sortie sera en html ou texte GetCodeSource = Lapage_en_HTML.ResponseText End Function Sub recuperation_du_csV() Dim textebrut As Variant, textetablo As Variant, tablo, lignes As Variant URL = "https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv" textebrut = GetCodeSource(URL) 'on recupere le texte en entier textetablo = Split(textebrut, "POUR")(UBound(Split(textebrut, "POUR"))) 'on supprime tout sauf le tableau des données lignes = UBound(Split(textetablo, Chr(13))) ' on determines le nombres de lignes du tableau dans le csv ReDim tablo(lignes, 7) 'on dimentionne la variable tablo avec le nombres de ligne et de colonne For e = 1 To 10 'lignes - 1 For a = 0 To 6 tablo(e, a) = Split(Split(textetablo, Chr(13))(e), ";")(a) 'MsgBox Split(Split(textetablo, Chr(13))(e), ";")(a) 'DoEvents Next Next Range("A1:G1", "A3").Resize(UBound(tablo), 7).ClearContents Range("A2").Resize(UBound(tablo), 7) = tablo [A1:G1] = Split(textebrut, Chr(13))(1) End Sub
alors comme tu peut le voir ce code est a la porté de tout le monde ,il n'est pas très compliqué en soit
le problème ici en l'occurrence c'est le temps de travail quelques fois sur plusieurs essais plus de une minute
pas très performant me diras tu

alors maintenant je te propose une 2 emme solution

toujours avec getcodesource on récupère le texte du csv
et avec ma toute nouvelle petite fonction on va transformer le texte format csv au format HTML
tu me diras : A quoi ca sert
et bien tout simplement a charger un dataobject qui lui gère le format html ou xml
ensuite on copy dans le clipboard (presse papier) et on le colle dans le sheets
et la ....miracle ta grille parfaitement rangé cellule par cellule
voila le code de la 2 eme solution
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 'https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv Public Function GetCodeSource2(sURL) Dim Lapage_en_HTML As Object Set Lapage_en_HTML = CreateObject("Microsoft.XMLHTTP") 'instancie l'object Lapage_en_HTML.Open "GET", sURL & "?nocache= + Math.random()", False 'ouvre l'url dans l'Object Lapage_en_HTML.Send ' envoie la requette 'selon si la variable "au_format_text" est a true ou falsele texte de sortie sera en html ou texte GetCodeSource2 = Lapage_en_HTML.ResponseText End Function Public Function CSVtoXHTML(codesource) 'on créé un objet html codesource = "<table><tr>" & codesource codesource = Replace(codesource, Chr(13), "</tr><tr><td>") codesource = Replace(codesource, ";", "</td><td>") codesource = Replace(codesource, "<tr></tr>", "") With CreateObject("htmlfile") 'on y ecrit le codesource complet .Write codesource 'Ici on garde que le texte au format outerhtml qui garde en memoire la mise en forme(pratique pour les tables) CSVtoXHTML = .body.outerHTML & "</table>" 'la fonction devient l'element mis en forme End With End Function Sub recuperation_du_csV_version2() Columns("A:G") = "" Dim textebrut As Variant, textetablo As Variant Dim tablo, lignes As Variant URL = "https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv" textebrut = GetCodeSource2(URL) 'on recupere le texte en entier [A1:G1] = Split(textebrut, Chr(13))(1) textetablo = Split(textebrut, "POUR")(UBound(Split(textebrut, "POUR"))) 'on supprime tout sauf le tableau des données Set mydata = New DataObject mydata.SetText CSVtoXHTML(textetablo) 'le code du tableau est copié dans le presse-papiers mydata.PutInClipboard Set fich = ThisWorkbook Set pag = fich.Sheets(1) [A2].Select pag.Paste End Sub
l'avantage de la 2 eme solution c'est le temps de travail(moins de 4 secondes) chez moi

j'espère que tu appréciera

j'ai presque envie de demander a MarcL ce qu'il en pense si il est pas trop énervé:mouarf:
c'est vrai Marc qu'en pense tu ???:aie::mouarf:
Au plaisir

Hello,

Désolé de ne vous revenir que ce matin ,mais je n'ai pas utilisé Internet du week-end.

Marc-L, il est vrai que je n'avais vraiment rien pigé... Mais que ta solution était assez évidente au final.

Merci beaucoup Patrick!!

Alors pour la ligne de code simple qui était la retranscription des réponses de Marc-L et bbil, celle ci me va déjà bien :)

Sinon oui c'est bien ce que j'avais déjà trouvé sur d'autres forums, mais impossible de réussir à faire tourner ce que je trouvais...

J'ai testé tes 2 solutions, la 1ère me va parfaitement pour le besoin que j'en ai actuellement. Je n'ai plus qu'à redimensionner le tableau comme souhaité et c'est niquel.

La 2ème s'avère plus intéressante je pense, mais je n'arrive pas à la faire tourner malheureusement...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub recuperation_du_csV_version2() Columns("A:G") = "" Dim textebrut As Variant, textetablo As Variant Dim tablo, lignes As Variant URL = "https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv" textebrut = GetCodeSource2(URL) 'on recupere le texte en entier [A1:G1] = Split(textebrut, Chr(13))(1) textetablo = Split(textebrut, "POUR")(UBound(Split(textebrut, "POUR"))) 'on supprime tout sauf le tableau des données Set mydata = New DataObject mydata.SetText CSVtoXHTML(textetablo) 'le code du tableau est copié dans le presse-papiers mydata.PutInClipboard Set fich = ThisWorkbook Set pag = fich.Sheets(1) [A2].Select pag.Paste End Sub
J'ai le message suivant qui s'ouvre: "Erreur de compilation: Type défini par l'utilisateur non défini"

A priori c'est au niveau du DataObject que ca ne marche pas... si tu as une idée sur le pourquoi du comment :)

Sinon tes deux solutions sont bien efficaces et réutilisables pour d'autres types de fichiers donc je te remercie grandement

10/03/2014, 11h33
patricktoulon

re

Bonjour

oui j'avais oublier
pour se servir de la version 2 il faut activer la reference"Microsoft forms object(2.0).Library "

on ne la trouve pas dans la liste
le seul moyen a ma connaissance aujourd'hui c'est d' ajouter un userform si il n'y en a pas et de l'enlever immédiatement
cette manipulation active cette référence

tiens récupère ce fichier
tu a 2 boutons un lance la version1 et l'autre la version2 tu constatera toi même la différence
récupère le vite je ne laisse pas les fichiers dans les discutions j'ai besoins de place pour mes contributions
10/03/2014, 11h38
geotz

OK merci pour l'astuce d'activation je la note précieusement!

J'ai DL le fichier c'est bon, tu peux le retirer :)

Je teste ton fichier et te fais un feedback dans qques minutes!

En tout cas maintenant je suis incollable sur la récupération de fichiers sur le net grâce à VBA!
10/03/2014, 11h43
patricktoulon

re

Citation:

En tout cas maintenant je suis incollable sur la récupération de fichiers sur le net grâce à VBA!

ne crois surtout pas ca

l'exemple que je t'ai donné et un exemple qui te conviens étant donné le contexte mais parfois selon les cites cela peut s'avérer beaucoup plus difficile
les librairie utilisée pour ce travail peuvent être différente selon le mode utile

Ok!

En tout cas la 2ème solution me plait beaucoup mieux! l'adaptation du fichier est parfaite :)

Un grand merci à toi pour m'avoir éclairé sur tout ça!

Patrick,

Si je ne souhaite garder que 2 lignes du texte (et non tout couper), comment je fais?

J'aimerais ne garder que la ligne des titres et la ligne des dates des dernieres MAJ.

Merci :)
Code:

1 2 3 4 [A1:G1] = Split(textebrut, Chr(13))(1) textetablo = Split(textebrut, "POUR")(UBound(Split(textebrut, "POUR"))) 'on supprime tout sauf le tableau des données Set mydata = New MSForms.DataObject mydata.SetText CSVtoXHTML(textetablo)

12/03/2014, 15h13
patricktoulon

re

Bonjour

Citation:

J'aimerais ne garder que la ligne des titres et la ligne des dates des dernieres MAJ.

tu veux bien t'expliquer????

re pour sirou

Bonjour sirou
normalement la charte dit que l'on évite de faire des demandes de ce genre par MP
sinon tu image bien que c'est la débandade
alors dans cette discussion il n'y a pas de fichier c'est du code
depuis je l'ai améliorer je me sert plus du dataobject obligeant a activer une référence je me sert d'un autre clipboard
voila le code a mettre dans un module standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv
Public Function GetCodeSource2(sURL)
    Dim Lapage_en_HTML As Object
    Set Lapage_en_HTML = CreateObject("Microsoft.XMLHTTP")    'instancie l'object
    Lapage_en_HTML.Open "GET", sURL & "?nocache= + Math.random()", False   'ouvre l'url dans l'Object
    Lapage_en_HTML.Send    ' envoie la requette
    'selon si la variable "au_format_text" est a true ou falsele texte de sortie sera en html ou texte
    GetCodeSource2 = Lapage_en_HTML.ResponseText
End Function
Public Function CSVtoXHTML(codesource)
'on créé un objet html
    codesource = "<table><tr>" & codesource
    codesource = Replace(codesource, Chr(13), "</tr><tr><td>")
    codesource = Replace(codesource, ";", "</td><td>")
     codesource = Replace(codesource, "<tr></tr>", "")
    With CreateObject("htmlfile")
        'on y ecrit le codesource complet
        .Write codesource
        'Ici on garde que le texte au format outerhtml qui garde en memoire la mise en forme(pratique pour les tables)
        CSVtoXHTML = .body.outerHTML & "</table>"    'la fonction devient l'element mis en forme
    End With
End Function
Sub recuperation_du_csV_version2()
    Columns("A:G") = ""
    Dim textebrut As Variant, textetablo As Variant
    Dim tablo, lignes As Variant
    URL = "<a href="https://www.banque-france.fr/fileadmin/user_upload/banque_de_france/Economie_et_Statistiques/Changes_et_Taux/page3_quot.csv" target="_blank">https://www.banque-france.fr/fileadm...page3_quot.csv</a>"
    textebrut = GetCodeSource2(URL)    'on recupere le texte en entier
    [A1:G1] = Split(textebrut, Chr(13))(1)
    textetablo = Split(textebrut, "POUR")(UBound(Split(textebrut, "POUR")))    'on supprime tout sauf le tableau des données
 
 
    With CreateObject("htmlfile")
    faire = .ParentWindow.clipboardData.SetData("text", CSVtoXHTML(textetablo))
        With Sheets(1)
            Set cel = .Cells(2, 1)
            cel.Select
            .Paste:
        End With
        faire = .ParentWindow.clipboardData.ClearData("text")
End With
End Sub

la prochaine demande si il y a lieu fait le ici: