Discussion :

[chris62]

Bonjour,

Je suis en train de monter un programme de surveillance mais j'e rencontre un probleme sur une partie du code
Je dois mettre a jour une table (prealablement vidée) a partir d'un fichier texte.

Ce fichier texte a comme separateur "|"
Afin d'etre sur de tout prendre je tente une boucle comme celle-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    Dim j As String
    Dim i As Integer
    Dim ifile As String
    Dim vsfile As String
    Dim sline As String
    Dim slineoriginal As String
    Dim rs As Recordset
 
    i = 1
 
    ifile = Freefile
    Open vsfile For Input As ifile
    For i = 1 To 5
        Line Input #ifile, sline
    Next
 
    Do While Not EOF(ifile)
        Line Input #1, slineoriginal
        sline = slineoriginal
        If (Left$(sline, 7) >= "1000000" And Left$(sline, 7) <= "3999999") Then
            rs.AddNew
            For j = 3 To Recordset.Fields.Count
                i = InStr(sline, Chr$(124))
                If i <> 0 Then
                    stexte = Left$(sline, i - 1)
                    Recordset.Fields.Item(j) = stexte
                    sline = Mid$(sline, i + 1)
                Else
                    Recordset.Fields.Item(j) = sline
 
            Exit For
 
        End If
    Next
 
   Recordset.Update
 
   End If

mais elle ne fonctionne pas

Puis je vous demander votre aide ? merci d'avance

modération : cafeine,

[cafeine]

Hello,

dans ton code Recordset n'est pas défini ...

[shumira]

je pense que tu peux faire ça plus simplement grace à l'instruction :

Code :

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

DoCmd.TransferText

ex :

Code :

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

DoCmd.TransferText acImportDelim, "NomTable", "SpécifImportation", Nom_fichier, True, ""

où la spécification d'importation est un élément que tu vas devoir définir au préalable dans access (en réalisant l'import manuellement et en sauvegardant la spécif)
et True c'est pour dire qu'il y a le nom des champs dans ton fichier, sinon tu mets false.

et là ça te prendra 1 ligne de code !

[chris62]

Merci pour cette commande mais il y a un element qui me pose probleme, j'ai besoin de faire un contrôle sur un separateur et donc voici pourquoi je me lancais dans la lecture sequentielle du fichier afin de trouver ce separateur.

Est ce qu'il n'y aurait pas la même commande mais en incluant un caractere de delimitation ?
Ici en l'occurence le caractere "|"

Merci d'avance

[cafeine]

Essaie l'import manuel, tu verras que tu peux spécifier le caractère de séparation de champs ...

[chris62]

Justement l'interet de ma fonction initiale etait justement un import en automatique, j'ai bien vu que l'import de table je pouvais faire l'equivalent du "text to column" dans Excell, je souhaites réellement importer cela en automatique.

Selon vous comment definir l'equivalent du text to column en VBA ?

Ou encore est ce qu'il est possible via un "DoCmd.TransferText" de definir un champs de separation ? et si oui comment SVP


Merci d'avance pour votre aide

[cafeine]

Re,

non tu n'as pas compris, si je parle d'import manuel c'est pour le faire une et une seule fois.

en effet seul l'import manuel te permet de définir une spécification d'import (pour info stockées dans des tables systèmes : MSysIMEXSpecs et MSysIMEXColumns), dont tu pourras ensuite te resservir dans le code.

[chris62]

Oui merci je viens effectivement de comprendre et de faire fonctionner cela.

Tout fonctionne

Merci beaucoup pour votre aide

[Muhad'hib]

Salut,

Cela m'interesse. Peux tu nous dire plus précisement comme tu réutilise les spécifs d'importation ?

A+