Discussion :

[joegalere]

Bonjour,

Je souhaite exporter les données taux de la banque de france dans excel, j'ai essayé avec l'option "nouvelle requête sur le web" mais ça ne fonctionne pas.

Quelqu'un peut-il m'aider le site est le suivant :

http://www.banque-france.fr/fr/poli_...aux/html/4.htm

merci d'avance,

PS : j'essaie depuis 1 heure

[Jean-Philippe André]

salut, pourquoi n'importes-tu pas le fichier 4.txt en lien ?

[joegalere]

Par ce que la banque de france ne le met pas à jour au 1er de chaque mois.On est le 9 / 11 et il n'y a tjrs pas le mois d'octobre.

Si quelqu'un tu peux m'aider ça serait vraiment super sympa, je ne sais pas pourquoi j'arrive avec l'option 'nouvelle requête d'excel' pour d'autres fichiers et par pour celui-ci...

Merci d'avance pour votre aide.

[jfontaine]

meme probleme chez moi, impossible d'importer la page.
Essais de trouver un autre site qui te donnerait les memes infos si c'est possible

[SilkyRoad]

bonsoir


Tu peux utiliser

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
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
43
44
Sub Importer_tableauPageWeb()
'Activez les références
    'Microsoft HTML Objects Library
    'et
    'Microsoft Internet Controls
 
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
Dim j As Integer, i As Integer
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
 
IE.navigate "http://www.banque-france.fr/fr/poli_mone/taux/html/4.htm"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
 
Set maPageHtml = IE.document
'objet type table
Set Htable = maPageHtml.getElementsByTagName("table")
 
'12ème tableau dans la page Web
Set maTable = Htable(11)
 
Application.ScreenUpdating = False
'boucle sur toutes les lignes du tableau
For i = 1 To maTable.Rows.Length
    'boucle sur les cellules dans chaque ligne
    For j = 1 To maTable.Rows(i - 1).Cells.Length
    Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
    Next j
Next i
 
Columns("A:G").AutoFit
Application.ScreenUpdating = True
 
MsgBox "Opération terminée."
IE.Quit
Set IE = Nothing
 
End Sub

bonne soirée
michel

[joegalere]

Merci beaucoup vraiment,

toutefois après avoir essayé il me met des erreurs de compilation sur la déclaration des dimensions !!!

[joegalere]

C'est bon super j'ai trouvé j'ai oubllié d'activé le mIcrosoft HTML dans outils...

merci à tous !!!