Discussion :

[JiB@]

Bonjour à tous,


Est-il possible d'importer le contenu complet d'un fichier TXT dans un champ défini d'un enregistrement/record via un formulaire?

Je ne peux pas utiliser la fonction "DoCmd.TransferText" et le chemin d'accès du fichier TXT est toujours le même sauf que son contenu chance tout le temps. Je voudrais importer le contenu complet du fichier TXT dans un champs "Importation" d'un enregistrement bien défini (celui qui est affiché dans le formulaire).

Merci pour aide

JiB@

[triaguae]

bonjour,

c'est un peu étrange de mettre le contenu d'un fichier dans un champ mais tu peux procéder de la manière suivante:

-ouvrir le fichier txt (soit en utilisant FSO ou directement avec l'instruction Open)
-parcourir le fichier ligne par ligne en mettant le contenu dans une variable
-fermer le fichier
-affecter le contenu de la variable à ton champ Me.monchamp= mavariable

pour le traitement des fichiers, le forum propose pas mal de post, il y a également ce tuto http://warin.developpez.com/access/fichiers/
je crois aussi qu'il a un tuto sur des scripts vbs dont tu peux t'inspirer mais je ne sais plus où!

[JiB@]

Merci elnipal !

Problème résolu. En effet, ça n'est pas courant, voir même étrange mais je ne sais pas faire autrement pour ce que je veux faire.

@+

JiB@

[JiB@]

Bonjour,


J'utilise ce script qui fonctionne bien mais qui a ses limites:

Code :

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

1
2
3
4
5
6
7
intFic = FreeFile
Open "C:\test\1.txt" For Input As intFic
While Not EOF(intFic)
    Line Input #intFic, strLigne
    Me.Note = strLigne
Wend
Close intFic

Le fichier 1.txt est structuré de cette façon:

Code :

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

1
2
3
4
5
6
7
Ligne1
Ligne2
Ligne3
 
Ligne5
 
Ligne7

Et avec le script ci-dessus, la Ligne7 UNIQUEMENT se trouve dans le champs Note.
Je voudrais que la Ligne1 à Ligne7 se trouve dans le champs Note.

Est-ce que vous pourriez me proposer une solution ou des idées?

Merci d'avance

[Tofalu]

Bonjour

A chaque fois, vous écrasez le contenu de la zone de texte :

Code :

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

1
2
3
4
5
6
7
intFic = FreeFile
Open "C:\test\1.txt" For Input As intFic
While Not EOF(intFic)
    Line Input #intFic, strLigne
    Me.Note = Me.Note & vbCrLf & strLigne
Wend
Close intFic

[JiB@]

SUPER !

Merci, ça fonctionne!