creation d'un fichier via un query ou macro

Bonjour Michel,

La macro TransférerTexte ne marche pas chez moi, apparemment en raison du
champ NOVAL numérique décimal, associée à un fichier de spécification pour
lequel les variables Texte ne sont pas délimitées. Idem avec la commande
DoCmd.TransferText. (Access2000)
Je n'en connais pas la raison, mais, peut-être, quelqu'un d'autre va
pouvoir intervenir pour te donner une solution.

En attendant, une solution de contournement via VBA :
Sub zz()
'Référence Microsoft DAO Object Library 3.x
Dim f As Long, i As Integer, nb As Integer
Dim tmp As String, rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("zzzz")
nb = rst.Fields.Count
f = FreeFile
Open CurrentProject.Path & "zzzz.txt" For Output As #f
While Not rst.EOF
For i = 0 To nb - 1
tmp = tmp & rst(i) & ";"
Next i
tmp = Left(tmp, Len(tmp) - 1)
Print #f, tmp
tmp = ""
rst.MoveNext
Wend
Close #f
rst.Close
Set rst = Nothing
End Sub

ouah t'es super sympa je te remercie enormement ca fait 2 semaine que je
suis dessus...

http://cjoint.com/?mltwNbj6L7

le truc c'est que je n'ai pas de query parce que tout est en ODBC...
alors j'ai exporte le resultat de ce query dans la table zzzz

le resultat du fichier plat doit comprendre tous les champs de cette
table.

exemple par rapport a la premiere ligne de cette table retranscrit dans
le fichier plat :

2085935010;12;190.96;20071210;USD;;642;CLOSE;15

et moi je n'arive pas a faire ca dans mon fichier plat... :o(

tout ce qui me donne c'est pour le meme exemple :
;12;190.96;"";"USD";;"642";"CLOSE";15

il ne veut pas me renvoyer la premiere colonne et me met des " quand le
champ est un texte...

Je serais trop content si tu pouvais jetter un coup d'oeil dessus. (Ca
doit etre une betise mais c'est la premiere fois que j'essais de produire
un fichier text via Access). Je suis super bon avec VBA mais la je
voudrais ne pas en utiliser, si il n'y a pas d'autre moyen c'est pas
grave je l'utiliserais c'est juste que la meme si je dois ecrire une
macro je ne vois pas comment faire...

D'avance un tres grand merci...

@+

Michel.

P.S. : Si ce n'est pas clair dis le moi.




"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
Ot%23nrECPIHA.5360@TK2MSFTNGP03.phx.gbl...

Bonsoir Michel,

Mets une bd au format Access 2000 avec quelques enregistrements à
traiter (à zipper si > à 500 Ko) sur www.cjoint.com et postes ici le
lien donné par cjoint.
N'oublies pas de préciser ce que tu veux exactement.

salut, desole mais ca ne marche pas :o)
Je dois etre trop nul....
Je ne pourrais pas t'envoyer mon fichier access a titre d'exemple ?
Merci d'avance,

Michel.


--

A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour Michel,

La macro TransférerTexte ne marche pas chez moi, apparemment en raison du
champ NOVAL numérique décimal, associée à un fichier de spécification pour
lequel les variables Texte ne sont pas délimitées. Idem avec la commande
DoCmd.TransferText. (Access2000)
Je n'en connais pas la raison, mais, peut-être, quelqu'un d'autre va
pouvoir intervenir pour te donner une solution.

En attendant, une solution de contournement via VBA :
Sub zz()
'Référence Microsoft DAO Object Library 3.x
Dim f As Long, i As Integer, nb As Integer
Dim tmp As String, rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("zzzz")
nb = rst.Fields.Count
f = FreeFile
Open CurrentProject.Path & "zzzz.txt" For Output As #f
While Not rst.EOF
For i = 0 To nb - 1
tmp = tmp & rst(i) & ";"
Next i
tmp = Left(tmp, Len(tmp) - 1)
Print #f, tmp
tmp = ""
rst.MoveNext
Wend
Close #f
rst.Close
Set rst = Nothing
End Sub

ouah t'es super sympa je te remercie enormement ca fait 2 semaine que je
suis dessus...

http://cjoint.com/?mltwNbj6L7

le truc c'est que je n'ai pas de query parce que tout est en ODBC...
alors j'ai exporte le resultat de ce query dans la table zzzz

le resultat du fichier plat doit comprendre tous les champs de cette
table.

exemple par rapport a la premiere ligne de cette table retranscrit dans
le fichier plat :

2085935010;12;190.96;20071210;USD;;642;CLOSE;15

et moi je n'arive pas a faire ca dans mon fichier plat... :o(

tout ce qui me donne c'est pour le meme exemple :
;12;190.96;"";"USD";;"642";"CLOSE";15

il ne veut pas me renvoyer la premiere colonne et me met des " quand le
champ est un texte...

Je serais trop content si tu pouvais jetter un coup d'oeil dessus. (Ca
doit etre une betise mais c'est la premiere fois que j'essais de produire
un fichier text via Access). Je suis super bon avec VBA mais la je
voudrais ne pas en utiliser, si il n'y a pas d'autre moyen c'est pas
grave je l'utiliserais c'est juste que la meme si je dois ecrire une
macro je ne vois pas comment faire...

D'avance un tres grand merci...

@+

Michel.

P.S. : Si ce n'est pas clair dis le moi.




"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
Ot%23nrECPIHA.5360@TK2MSFTNGP03.phx.gbl...

Bonsoir Michel,

Mets une bd au format Access 2000 avec quelques enregistrements à
traiter (à zipper si > à 500 Ko) sur www.cjoint.com et postes ici le
lien donné par cjoint.
N'oublies pas de préciser ce que tu veux exactement.

salut, desole mais ca ne marche pas :o)
Je dois etre trop nul....
Je ne pourrais pas t'envoyer mon fichier access a titre d'exemple ?
Merci d'avance,

Michel.


--

A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Salut,

J'ai refais mon truc depuis 0... et maintenant ca marche tip top sans macro,
je ne sais pas pk, j'ai a un moment du faire une mauvaise manipulation.

En tout cas un grand merci de ton aide.

C'était avec plaisir.