Export Access vers fichier txt ligne à ligne

Version imprimable

21/01/2010, 22h04
jorge54

Export Access vers fichier txt ligne à ligne

Bonjour,

Je cherche une méthode pour exporter des données d'une base access vers un fichier *.txt:Plus exactement:
- extraction de la première ligne vers un fichier texte(*.txt), la deuxième ligne dans un autre fichier texte et ainsi de suite…
- Le nom du fichier texte doit être le même que celui se trouvant dans la colonne (DOSSIER).txt, avec l'extension txt
- Dans le fichier texte je n’ai besoin que des 11 premières colonnes de la base sur les 15 colonnes.
- Le format de mon fichier texte doit être de type:
- Un critère par ligne, même les blancs.
- Le fichier commence par <LDS001>
- Et fini par <stamp nb=0>
id_castor nom nom_naissance prenom date_naissance sexe
DM1$1 COLLIGNON ANDRE 21/12/1909 M
<LDS001>
<idx nb=11>
DM1$2
COLLIGNON

ANDRE
21/12/1909
M
08/01/1996
21:15
01017482482
54110
DOMBASLE
<stamp nb=0>

Un très grand merci pour votre aide
Un homme désespéré.
Merci

Bonsoir,

Si votre table s'appelle TableExport, votre code ressemblerait à cela:

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
Public Function Export()
Dim rs As DAO.Recordset
 
' ouverture de votre table
Set rs = CurrentDb.OpenRecordset("TableExport")
 
Do Until rs.EOF ' parcours des enregistrements de la table
 
   Open rs!Dossier & ".txt" For Output As #1 'ouverture du fichier en écriture
 
   Print #1, "<LDS001>" ' écriture au début du fichier
 
   For i = 0 To 10
      Print #1, rs.Fields(i) ' Écrit le texte de la colonne i.
   Next i
 
   Print #1, "<stamp nb=0>" ' écriture à la fin du fichier.
 
   Close #1   ' Ferme le fichier. 
 
rs.MoveNext ' Enregistrement suivant, ligne suivante.
 
Loop
 
rs.Close
 
End Function

A vous d'adapter ce code et à le mettre sur un évènement (sur le clic d'un bouton de commande par exemple)

21/01/2010, 23h24
User

1. Vous créez un module (fenêtre module -> nouveau)
2. Vous copier le code dans ce module.
3. Vous appuyez sur CTRL+G (menu affichage, puis fenêtre Exécution)
4. Dans la fenêtre d'exécution vous tapez:
? Export() (et vous appuyez sur Entrée)

Attention ce code est à adapter à votre cas...
21/01/2010, 23h30
jorge54

user

Je test demain tout cela.
En attendant un grand merci
Bonne nuit

Suite

Bonjour,

J'ai essayé le code, j'ai une erreur sur cette ligne

Code:

Open rs!dossier & "C:\CHU\CASTOR\texte.txt" For Output As #1

'ouverture du fichier en écriture

Merci pour votre réponse
Cdt

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
Public Function Export()
Dim rs As DAO.Recordset
 
' ouverture de votre table
Set rs = CurrentDb.OpenRecordset("Venues_patient")
 
Do Until rs.EOF ' parcours des enregistrements de la table
 
   Open rs!dossier & "C:\CHU\CASTOR\texte.txt" For Output As #1 'ouverture du fichier en écriture
 
   Print #1, "<LDS001>" ' écriture au début du fichier
 
   For i = 0 To 10
      Print #1, rs.Fields(i) ' Écrit le texte de la colonne i.
   Next i
 
   Print #1, "<stamp nb=0>" ' écriture à la fin du fichier.
 
   Close #1   ' Ferme le fichier.
 
rs.MoveNext ' Enregistrement suivant, ligne suivante.
 
Loop
 
rs.Close
 
End Function

22/01/2010, 16h48
User

Bonjour,

Pouvez-vous nous dire ce que contient le champ Dossier de votre table ?
Postez nous quelques exemples de son contenu...

Merci
23/01/2010, 00h38
jorge54

jorge

Bonsoir,

dans le champ, j'ai le nom.
Mais ce que je souhaite faire, c'est prendre les 11 premiers champs de la première ligne de la table.
Extraire dans un fichier, avec le nom se trouvant dans la même ligne, champ n°14.
Et une boucle permettant d'extraire la deuxième lignes de la table, avec les mêmes critères dans une deuxième fichiers texte.
Merci pour votre aide
23/01/2010, 00h52
User

Bsr,

Dans la commande:

Code:

Open rs!Dossier & ".txt" For Output As #1

si le champ Dossier contient le nom du fichier exemple, "Fichier1.txt", il ne va pas savoir dans quel dossier aller chercher: Il faut mettre le chemin avant, du style:

Code:

Open "C:\CHU\CASTOR\" & rs!Dossier & ".txt" For Output As #1

ce qui revient à si
rs!Dossier="Fichier1"

Code:

Open "C:\CHU\CASTOR\Fichier1.txt" For Output As #1

Vous comprenez ? :?
23/01/2010, 00h57
jorge54

jorge

Voici la table,
------------------------------------
| id | nom | nom_naissance | prenom | date_naissance | sexe | date_admission | heure_admis | gesmal_urgence | code_posta | ville | donnees_dossier | flg_gen | date_gen | mois_adm
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
| DM1$1 | TATORPION | | ANDRE | 21/12/1909 | M | 02/02/1995 | 15:01 | 01017200230 | 99110 | VILLEBASLE | DM1_1.csv | x | 08/11/2012 | 1885-02 | DM1_1.PDF

Le format du fichier est du type :DM1_1.txt (champ:mois_adm.txt)
<LDS001>
<idx nb=11>
DM1$2
TATORPION

ANDRE
21/12/1909
M
02/02/1995
15:01
01017200230
99110
VILLEBASLE
<stamp nb=0>
23/01/2010, 01h00
jorge54

jorge

Merci user,
J'ai compris,Votre explication est très claire
23/01/2010, 01h21
jorge54

jorge

j'ai executé le module, voici le résultat. il ecrit toujours dans le même fichier

<LDS001>
DM118654$2
ARENA
Null
JUDITH
24/09/1971
F
28/06/2006
16:45:00
01017152830
54520
LAXOU
<stamp nb=0>

Il ecrit bien les champs, mais au moment de passer à la deuxième lignes de la table, comment faire pour écrire dans une deuxième fichiers. ?
23/01/2010, 01h27
jorge54

user
Quand j'execute le module, j'ai une erreur de compilation, le type défini par l'utilisateur non défini?
Code:

1 2 Public Function Export() Dim rs As DAO.Recordset
23/01/2010, 01h38
jorge54

Code:

Open "C:\CHU\CASTOR\" & rs!Dossier & ".txt" For Output As #1

Idiot que je suis, je n'ai pas copier la bonne ligne, j'obtiens bien mes fichier.
merci user
23/01/2010, 01h51
jorge54

jorge

Lorsqu'une cellule est vide, comment remplacer 'NULL' par une ligne vide.
DM16$42
PARIS
Null
STEPHANE

Merci
23/01/2010, 02h15
jorge54

jorge

Un grand merci à USER.:ccool: