Export Access vers fichier txt ligne à ligne

**jorge54** · 21/01/2010, 22h04

Bonjour,

Je cherche une méthode pour exporter des données d'une base access vers un fichier *.txt

lus 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

**User** · 21/01/2010, 22h54

Bonsoir,

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

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
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)

**User** · 21/01/2010, 23h24

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...

**jorge54** · 21/01/2010, 23h30

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

**jorge54** · 22/01/2010, 13h49

Bonjour,

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

Code :

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

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

'ouverture du fichier en écriture

Merci pour votre réponse
Cdt

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
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

**User** · 22/01/2010, 16h48

Bonjour,

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

Merci

**jorge54** · 23/01/2010, 00h38

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

**User** · 23/01/2010, 00h52

Bsr,

Dans la commande:

Code :

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

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 :

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

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

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

Code :

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

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

Vous comprenez ?

**jorge54** · 23/01/2010, 00h57

M1_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>

**jorge54** · 23/01/2010, 01h00

Merci user,
J'ai compris,Votre explication est très claire

**jorge54** · 23/01/2010, 01h21

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. ?

**jorge54** · 23/01/2010, 01h27

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

Code :

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

1
2
Public Function Export()
Dim rs As DAO.Recordset

**jorge54** · 23/01/2010, 01h38

Code :

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

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

**jorge54** · 23/01/2010, 01h51

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

Merci

**jorge54** · 23/01/2010, 02h15

Un grand merci à USER.

Export Access vers fichier txt ligne à ligne [AC-2000]

VBA Access

Discussions similaires

Partager

Partager