[AC-2010] Import contenu fichier .txt dans un champ mémo

[vversaveau]

Bonjour,

Cela parait bête mais je n'y arrive pas.
J'ai le chemin d'un fichier texte > strchemintxt (c:\toto.txt par ex)
J'ai une table > t_table
J'ai un champ mémo dans cette table > champ_memo
je désire copier le contenu du fichier texte dans mon champ mémo.

Merci d'avance pour vos réponses.

[jpcheck]

salut,

avant de proposer une solution, peux-tu nous dire ce que tu as essayer de faire jusqu'a present ?

La te donne deja le code pour lire le contenu d'un fichier
http://access.developpez.com/faq/?page=Fichier#FicTxt

celui pour manipuler des recordsets sous VBA
http://warin.developpez.com/access/dao/?page=partie_5

Reste a faire les liens simplement de l'un a l'autre

[vversaveau]

MERCI !!!!

A mettre dans l'évennement :

Code :

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
Private Sub nom_bouton()
 
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim txt() As String
 
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT nom_champ FROM nom_table WHERE N°=264", dbOpenDynaset)
 
'insere le fichier texte dans le tableau
txt() = LireFichier("chemin_fichier_texte")
 
'insère le tableau dans le recordset
For i = 0 To UBound(txt)
 
    oRst.Edit
 
    If i = 0 Then
 
    oRst.Fields(0).Value = txt(0)
 
    End If
 
    oRst.Fields(0).Value = oRst.Fields(0).Value & vbNewLine & txt(i)
 
    oRst.Update
 
Next i
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
end sub

En utilisant la fonction lire_fichier suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function LireFichier(ByVal sPath As String) As String()
 
    Dim fso     As FileSystemObject
    Dim fFile   As File
    Dim ts      As TextStream
    Dim result  As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fFile = fso.GetFile(sPath)
    Set ts = fFile.OpenAsTextStream(ForReading)
 
    result = ts.ReadAll
    LireFichier = Split(result, vbCrLf)
 
    ts.Close
    Set ts = Nothing
    Set fFile = Nothing
    Set fso = Nothing
 
End Function