En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218269 visiteurs

 6 visiteurs en ligne

Nous contacter

Contact

Importer fichier TXT

Importer ligne par ligne un fichier texte (.txt)

Lecture de chaque ligne d'un fichier texte et importation dans un champ d'une table.

Sub ImportTXT()
    Dim txtLine As String
    Dim LeFichier As String
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim F As Integer
    LeFichier = "c:\cheminfichier.txt"
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("LaTable", dbOpenDynaset)
    F = FreeFile
    Open LeFichier For Input As #F
    Line Input #F, txtLine
    Do While Not EOF(F)
        Line Input #F, txtLine
        With rst
            .AddNew
            .Fields("LeChamp").Value = txtLine
            .Update
        End With
    Loop
    Close #F
    rst.Close
    Set dbs = Nothing
    Set rst = Nothing
End Sub


Catégorie : Les mémos - Fichiers
Page lue 7661 fois

Vous êtes ici :   Accueil » Importer fichier TXT