Discussion :

[Badouba75]

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

[jcderchain]

Bonjour,

utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[aalex_38]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.OpenText