importer des valeurs

[Guillaumega]

Bonjour le forum,

Je recherche à importer des taux d'intérêts.
Les données à importer se situent dans un fichier texte à l'adresse http://www.euribor.org/html/download/euribor_2006.txt

Lorsque l'on télécharge puis change l'extension du fichier en .xls, les données que je souhaite utiliser se situent toujours dans la troisième ligne (B3😛3).

Sauriez vous comment automatiser l'importation de la plage B3😛3 dans ma feuille excel?

En vous remerciant,
Guillaumega

 

[jeanpierre]

Re : importer des valeurs

Bonjour Guillaumega, Bonjour au Forum,

Avec l'enregistreur de macro, cela donne ça : (enfin, si j'ai bien compris, pas sûr)
Sub Macro1()
Workbooks.OpenText Filename:="C:\Mes Documents\euribor_2006.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1))
End Sub

Le chemin est a adapter...



Bon, OK, fainéant, moi, ce matin, mais voir tout de même si cela peut te satisfaire....

Bonne journée.

Jean-Pierre

Edit : Pas besoin de changer l'extension

 

[Guillaumega]

Re : importer des valeurs

Bonjour Jean Pierre,

Merci, je vais essayer de bosser avec ça. Je reviendrai vers le forum si je bloque!
Le code suivant est une bonne base de travail !

Sub alalcon()
Workbooks.OpenText Filename:="http://www.euribor.org/html/download/euribor_2006.txt"
ActiveWorkbook.Close
End Sub

A+

 

[JCGL]

Re : importer des valeurs

Bonjour à tous, Guillaumega
Salut Jean-Pierre (et Bonne demi-fête) 😛


Un essai par requête Web

Bonne journée

 

[Guillaumega]

Re : importer des valeurs

Bonjour à tous, Guillaumega
Salut Jean-Pierre (et Bonne demi-fête) 😛


Un essai par requête Web

Bonne journée

Merci!
Je suis parvenu à mes fins avec le code suivant :

Sub euribor()
Dim E3M As Double
Dim E6M As Double
Dim E9M As Double
Dim E1Y As Double
Dim E2Y As Double
Dim E3Y As Double
Dim E4Y As Double
Dim E5Y As Double
Application.ScreenUpdating = False
Workbooks.OpenText Filename:="http://www.euribor.org/html/download/euribor_2006.txt"
E3M = Worksheets("euribor_2006").Range("G3").Value
E6M = Worksheets("euribor_2006").Range("J3").Value
E9M = Worksheets("euribor_2006").Range("M3").Value
E1Y = Worksheets("euribor_2006").Range("P3").Value
E2Y = 2 * E1Y - E9M
E3Y = 3 * E1Y - 2 * E9M
E4Y = 4 * E1Y - 3 * E9M
E5Y = 5 * E1Y - 4 * E9M
ActiveWorkbook.Close
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b1") = E3M
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b2") = E6M
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b3") = E9M
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b4") = E1Y
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b5") = E2Y
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b6") = E3Y
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b7") = E4Y
Workbooks("negatifs.xls").Worksheets("Feuil1").Range("b8") = E5Y
End Sub


Ca sent le débutant mais bon... faut s'accepter comme on est!!

 

[jeanpierre]

Re : importer des valeurs

Re, et Grand bonjour à toi JCGL (m'enfin, j'sais pas si je dois)

En plus, Guillaumega qu'en rajoute 😡

"Ca sent le débutant mais bon... faut s'accepter comme on est!!"

Alors pour Guillaumega, Rien à voir avec le fil, c'est un squat....

Pour JCGL, je ne réponds pas à la première moitié, mais à la seconde...😱
Donc, Ci Bocoup....

Bon week-end à tous, et à bientôt, j'espère...

Jean-Pierre