Discussion :

[Faridpo]

Bonjour à toutes et à tous,

J'ai un fichier CSV nommé ALL.csv dans lequel j'aimerais ajouter chaque jour toutes les lignes de ma table 'Actions' (~1M de lignes), existe-t-il une méthode simple pour faire cela ?

Je peux me débrouiller avec du VBA si ce n'est pas trop poussé.

Merci pour votre temps et votre aide.

Bonne soirée,

Farid

[EricDgn]

Bonjour,

Un petit exemple juste pour montrer le principe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Sub btnAjout_Click()
    Dim CsvFile As String, f As Integer, kR As Long
    CsvFile = CurrentProject.Path & "\LesCours.csv"
    f = FreeFile
    DoCmd.GoToRecord , , acFirst
    Open CsvFile For Append As #f
        For kR = 1 To DCount("*", "LesCours")
            Print #f, Format(Me.LaDate, "yyyy-mm-dd") & ";" & Me.Ticker & ";" & Me.Prix
            DoCmd.GoToRecord , , acNext
        Next kR
    Close #f
End Sub

C'est l'instruction For Append qui fait que les données sont ajoutées au fichier.
Pour éviter tout problème avec les dates, il est recommandé de les enregistrer au format international yyyy-mm-dd.

Cordialement.

[Faridpo]

Bonjour Eric,

Merci pour ton retour très complet, c'est exactement ce dont j'avais besoin.

Encore merci et bon dimanche,

Farid