Discussion :

[cchampion2fr]

Bonjour,

J'ai un gros problème au niveau de l'exportation d'une table en fichier texte...
en effet je souhaite exporter une table avec tout ses champs mais les formats défini sont mauvais au moment de l'export : pour la date pour les montants...de plus access me saute des lignes a chaque enregistreemnt alors que je voudrais que cela apparaissent sur une seule ligne tout à la suite..;

Merci de bien vouloir m'indiquer comment on exporte une table access en fichier texte avec un format prdéfini pour chaque champs???

Ca fait des heures que je cherche sur le net mais j'ai rien trouvvé...merci de votre aide..

[cchampion2fr]

Si personne sait me repondre pouvez vous au moins me donner une aide ou un site qui en parle svp.

d'avance merci.

[random]

tu peux paramètrer très peu de choses avec l'assistant export
l'astuce est de créer une requête des champs formatés
par exemple madatetxt:format(madate;"yyyyddmm")
ou
mt: Format([taux];"0,00000000")
si les possibilités de format ne suffisent pas on va par fonction transformer
les champs par des fonctions

[random]

ensuite tu exportes la requête et non la table

[cchampion2fr]

Mais pour le faire en automatique(clic sur un bouton), e procede comment???

et comment je fais pour qu'acces ne retourne pas à la ligne a chaque enregistrement?

[Trini]

Bonjour,

Pour créer un fichier texte un peu spécifique comme tu le décris, regardes aussi la commande VB OPEN qui permet de lire/créer des formats de fichier comme tu veux (l'aide sur ACCESS te donnera déjà pas mal de renseignement ou la FAQ).
Sinon comme le dis random y faudra aussi passer par des Format() pour la mise en forme des champs.

Salut,

[cchampion2fr]

je ne suis pas trop ce que vous me dites..par des requetes formatées, par la commande vb open...je connais access de base...
pouvez vous me donner un exemple avec la table suivante :

Table toto

numvoiture nomvoiture date_achat
1 audi 15/08/2005
2 mercedes 13/02/2004
3 bmw 12/07/2005


Format souhaite du fichier texte apres clic sur un bouton :

1;audi;15082005;2;mercedes;13022004;3;bmw;12072005;


votre aide serait la bienvenue car je ne comprends pas trop comment resoudre mon probleme d'export de la table! j'ai cree requete table mais apres je bloque au niveau de l'export!

[random]

ben un fichier texte est normalement pourvu
de fin de ligne retour charriot
si tu n'as que ca à changer tu fais par programme
remplacer chr(10)chr(13) par " " ou rien ou ";"
sinon il reste à te palucher manu l'écriture dans un fichier texte

[random]

tu fais d'abord

Code :

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

1
2
3
 
SELECT matable.num, matable.nom, Format([date],"ddmmyyyy") AS datet
FROM matable;

puis tu exportes

[cchampion2fr]

merci de reprendre l'exemple que j'ai fait plus haut!
j'ai une table et je souhaite la création d'un fichier texte comme indiqué....

[Trini]

Re,

Voilà comment créer un fichier Texte avec la commande OPEN

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
 
Function CreeFichier()
Dim T As Recordset, m As String
Dim L As Long
 
  Set T = CurrentDb.OpenRecordset("toto")
 
  Open "C:\Temp\Test.txt" For Binary As #1
 
  L = 1
  Do Until T.EOF
 
    m = T!numVoiture & ";" & T!NomVoiture & ";" & Format(T!Date_achat, "mm/dd/yyyy") & ";"
    Put #1, L, m
 
    L = L + Len(m)
    T.MoveNext
  Loop
 
  Close #1
  T.Close
 
End Function

Pour le format de la date à toi de faire ce que tu veux.

Salut,

[Alexandre Sahli]

pour l'exportation automatique
il est nécessaire de faire plusieurs opération

1. faire une requête formatée comme tu le veux comme le dit si bien Random

ensuite tu exportes la requête et non la table

2.ensuite si c'est du fichier texte il faut te créer un modèle d'exportation
ce sont des modèles que tu peux faire à l'aide du menu export

3. tu crées un bouton avec le code suivant

Code :

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

1
2
 
    DoCmd.TransferText acExportDelim, "TonFormatExport", "NomDeTaRequête", "le chemin et le nom de ton fichier", False

j'ai déjà procédé plusieurs fois de la sorte et c'est parfait

[cchampion2fr]

Il faut que je passe par une table et un requete a ce que vois?? si c'est le cas comment je fusionne les deux??
Il n'est pas possible de passer simplement par ne requete formaté pour l'exemple de la table toto?

comment serait la requete formatée ? et le code pour la requete en fichier texte?

Merci deja de votre aide, je commence à y voir un peu plus clair...

[Alexandre Sahli]

je crois que pour ce qui est de la requête "formatée" avec la table toto tu peux utiliser l'assistant d'access tu insères le champs "numvoiture" "nomvoiture" et dans le 3ème DAchat:format([date_achat],"ddmmyyyy")

ensuite tu sauvegardes et tu as ta requête prète pour l'exportation

[cchampion2fr]

Ok pour la requete mais la table toto que je dois exporter pour creer un fichier texte en automatique???

j'en fais quoi exactement? je ne suis pas obligé de passer par une table et une requete!
j'ai deja utilisé une requete pour mettre a jour mes données dans une table....

comment utiliser l'export pour la requete???

[cafeine]

Je ne vois aucune trace d'une réponse de ta part à la solution de Trini (toto peut être une table OU une requête), qui me semble pertinente, merci de la tester avant toutes choses.

[cchampion2fr]

Je n'arrive pas a faire fonctionner la fonction creefichier??

comment cela marche??
au moment de l'éxecution la ligne suivante apparait :
Set T = CurrentDb.OpenRecordset("CréationPEC")


Voila le code utilisé...la table existe bien et je lance le module a partir de la fenetre visual basic..

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
 
Function CreeFichier()
Dim T As Recordset, m As String
Dim L As Long
 
  Set T = CurrentDb.OpenRecordset("CréationPEC")
 
  Open "d:\toto\Test.txt" For Binary As #1
 
  L = 1
  Do Until T.EOF
 
    m = T!code_appli & ";" & T!etab & ";"
    Put #1, L, m
 
    L = L + Len(m)
    T.MoveNext
  Loop
 
  Close #1
  T.Close
 
End Function

[cafeine]

essaie Dim T as DAO.Recordset

[Tofalu]

essaie Dim T as DAO.Recordset

Sans oublier d'ajouter la référence microsoft DAO à ton projet

[cchampion2fr]

Cela bloque a la premiere ligne cette fois ci...c'est encore pire!!!

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
 
Option Compare Database
 
Function CreeFichier()
'Dim T As Recordset, m As String
Dim T As DAO.Recordset, m As String
Dim L As Long
 
  Set T = CurrentDb.OpenRecordset("CréationPEC")
 
  Open "o:\toto\Test.txt" For Binary As #1
 
  L = 1
  Do Until T.EOF
 
    m = T!code_appli & ";" & T!etab & ";"
    Put #1, L, m
 
    L = L + Len(m)
    T.MoveNext
  Loop
 
  Close #1
  T.Close
 
End Function