Automatisation Import d'un .CSV en ligne sur mon fichier Excel

Version imprimable

08/03/2010, 15h12
Badouba75

Automatisation Import d'un .CSV en ligne sur mon fichier Excel

Bonjour à tous,

Il y a un fichier CSV qui est remis à jour tous les jours sur un site internet, et j'aimerais donc importer les données automatiquement sur mon dossier excel chaque fois que je clique sur un bouton.

Le lien est le suivant :
http://www.banque-france.fr/fr/stati...d.ceurusci.csv

Pouvez vous me donner des pistes concrètes.

Merci beaucoup de votre patience.

Bonne journée

Bonjour,

utilise ce code

Code:

1
2
3
4
5
6
7
8
9
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
         ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, 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), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
        Array(27, 1), Array(28, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True

en adaptant l'array .
salutation

08/03/2010, 15h38
Badouba75

Merci de ta réponse,

Ton code permet de convertir le csv en xls exploitable, mais comment je fais pour récupérer les données de ce fichier csv qui est en ligne ? Je veux que les données se copient automatiquement dans mon fichier xls.

Merci
09/03/2010, 11h47
aalex_38

Bonjour,

Au lieu de TextToColumns qui te permet de convertir une fois le fichier ouvert, tu peux utiliser :

Code:

Workbooks.OpenText