désolé, si je ne vous précisez pas si ca marchait ou non. Je découvre
le forum. C'est en faisant des conneries qu'on apprend.
je vous réexplique mon problème: j'arrive pas à faire un transfert
d'une table à un fichier texte au format Ascii.
je ne sais pas s'il faut écrire dans le code vb, la longueur d'un
champ quelconque, avec son libellé, le nombre de caractère d'un champ
exemple:dans le 1° champ, date-camion à une position de debut à 1 et
finit à 8 puis num-camion va de 9 à 14....et ainsi de suite. Faut-il
que je le précise en vb?
Avec votre commande que vous m'avez dites hier, DoCmd.TransferText,
rien ne se passe. j'ai le meme message d'erreurqui s'affiche :
erreur3021 Aucun enregistrement en cours
et pourtant j'en ai dans ma table concernée.
j'ai cette meme erreur en mettant DoCmd.OutputTo et je ne vois pas
d'erreur.
en fait, DoCmd.TransferText ne sert-il pas que pour word?
revoilà ma procedure:
'Cette procédure permet de générer, à partir d'une table sous Access,
un fichier .txt au format Ascii, avec validation du transfert.
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination :
C:\WINDOWS\Bureau\aurélien\access 2002\essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
DoCmd.SetWarnings False 'Désactivation de l'affichage des messages
systèmes et transfert vers fichier texte
DoCmd.OutputTo acOutputForm, "TransfertXls", acFormatTXT,
"C:\WINDOWS\Bureau\aurélien\access 2002\essai.txt", True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:\WINDOWS\Bureau\aurélien\access
2002\essai.txt")
End If
End Sub
Encore désolé pour hier, et merci pour votre aide
Aurélien
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Laure
Bonjour,
Essai déjà de voir si cette simple ligne de code qui suit marche correctement. TransfertXls étant ta table à transferer C:essai.txt étant le fichier qui va être généré à partir de ta table (essai d'abord dans C:, tu verra ensuite pour le générer sur le bureau)
Parfois il faut commencer simplement, voir si ça marche et ensuite rajouter des contrôles etc...
désolé, si je ne vous précisez pas si ca marchait ou non. Je découvre le forum. C'est en faisant des conneries qu'on apprend.
je vous réexplique mon problème: j'arrive pas à faire un transfert d'une table à un fichier texte au format Ascii. je ne sais pas s'il faut écrire dans le code vb, la longueur d'un champ quelconque, avec son libellé, le nombre de caractère d'un champ exemple:dans le 1° champ, date-camion à une position de debut à 1 et finit à 8 puis num-camion va de 9 à 14....et ainsi de suite. Faut-il que je le précise en vb?
Avec votre commande que vous m'avez dites hier, DoCmd.TransferText, rien ne se passe. j'ai le meme message d'erreurqui s'affiche : erreur3021 Aucun enregistrement en cours et pourtant j'en ai dans ma table concernée.
j'ai cette meme erreur en mettant DoCmd.OutputTo et je ne vois pas d'erreur.
en fait, DoCmd.TransferText ne sert-il pas que pour word?
revoilà ma procedure:
'Cette procédure permet de générer, à partir d'une table sous Access, un fichier .txt au format Ascii, avec validation du transfert.
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:WINDOWSBureauaurélienaccess 2002essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then DoCmd.SetWarnings False 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.OutputTo acOutputForm, "TransfertXls", acFormatTXT, "C:WINDOWSBureauaurélienaccess 2002essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:WINDOWSBureauaurélienaccess 2002essai.txt")
End If
End Sub
Encore désolé pour hier, et merci pour votre aide Aurélien
Bonjour,
Essai déjà de voir si cette simple ligne de code qui suit marche
correctement.
TransfertXls étant ta table à transferer
C:essai.txt étant le fichier qui va être généré à partir de ta table
(essai d'abord dans C:, tu verra ensuite pour le générer sur le bureau)
Parfois il faut commencer simplement, voir si ça marche et ensuite rajouter
des contrôles etc...
"keke95" <keke95@caramail.com> a écrit dans le message de
news:f92746c7.0401210606.64fb62f9@posting.google.com...
désolé, si je ne vous précisez pas si ca marchait ou non. Je découvre
le forum. C'est en faisant des conneries qu'on apprend.
je vous réexplique mon problème: j'arrive pas à faire un transfert
d'une table à un fichier texte au format Ascii.
je ne sais pas s'il faut écrire dans le code vb, la longueur d'un
champ quelconque, avec son libellé, le nombre de caractère d'un champ
exemple:dans le 1° champ, date-camion à une position de debut à 1 et
finit à 8 puis num-camion va de 9 à 14....et ainsi de suite. Faut-il
que je le précise en vb?
Avec votre commande que vous m'avez dites hier, DoCmd.TransferText,
rien ne se passe. j'ai le meme message d'erreurqui s'affiche :
erreur3021 Aucun enregistrement en cours
et pourtant j'en ai dans ma table concernée.
j'ai cette meme erreur en mettant DoCmd.OutputTo et je ne vois pas
d'erreur.
en fait, DoCmd.TransferText ne sert-il pas que pour word?
revoilà ma procedure:
'Cette procédure permet de générer, à partir d'une table sous Access,
un fichier .txt au format Ascii, avec validation du transfert.
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination :
C:WINDOWSBureauaurélienaccess 2002essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
DoCmd.SetWarnings False 'Désactivation de l'affichage des messages
systèmes et transfert vers fichier texte
DoCmd.OutputTo acOutputForm, "TransfertXls", acFormatTXT,
"C:WINDOWSBureauaurélienaccess 2002essai.txt", True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:WINDOWSBureauaurélienaccess
2002essai.txt")
End If
End Sub
Encore désolé pour hier, et merci pour votre aide
Aurélien
Essai déjà de voir si cette simple ligne de code qui suit marche correctement. TransfertXls étant ta table à transferer C:essai.txt étant le fichier qui va être généré à partir de ta table (essai d'abord dans C:, tu verra ensuite pour le générer sur le bureau)
Parfois il faut commencer simplement, voir si ça marche et ensuite rajouter des contrôles etc...
désolé, si je ne vous précisez pas si ca marchait ou non. Je découvre le forum. C'est en faisant des conneries qu'on apprend.
je vous réexplique mon problème: j'arrive pas à faire un transfert d'une table à un fichier texte au format Ascii. je ne sais pas s'il faut écrire dans le code vb, la longueur d'un champ quelconque, avec son libellé, le nombre de caractère d'un champ exemple:dans le 1° champ, date-camion à une position de debut à 1 et finit à 8 puis num-camion va de 9 à 14....et ainsi de suite. Faut-il que je le précise en vb?
Avec votre commande que vous m'avez dites hier, DoCmd.TransferText, rien ne se passe. j'ai le meme message d'erreurqui s'affiche : erreur3021 Aucun enregistrement en cours et pourtant j'en ai dans ma table concernée.
j'ai cette meme erreur en mettant DoCmd.OutputTo et je ne vois pas d'erreur.
en fait, DoCmd.TransferText ne sert-il pas que pour word?
revoilà ma procedure:
'Cette procédure permet de générer, à partir d'une table sous Access, un fichier .txt au format Ascii, avec validation du transfert.
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:WINDOWSBureauaurélienaccess 2002essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then DoCmd.SetWarnings False 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.OutputTo acOutputForm, "TransfertXls", acFormatTXT, "C:WINDOWSBureauaurélienaccess 2002essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:WINDOWSBureauaurélienaccess 2002essai.txt")
End If
End Sub
Encore désolé pour hier, et merci pour votre aide Aurélien
Pierre CFI [mvp]
on lui a dit , mais il écoute pas :o))))
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Laure" a écrit dans le message de news: eV#
Bonjour,
Essai déjà de voir si cette simple ligne de code qui suit marche correctement. TransfertXls étant ta table à transferer C:essai.txt étant le fichier qui va être généré à partir de ta table (essai d'abord dans C:, tu verra ensuite pour le générer sur le bureau)
Parfois il faut commencer simplement, voir si ça marche et ensuite rajouter des contrôles etc...
désolé, si je ne vous précisez pas si ca marchait ou non. Je découvre le forum. C'est en faisant des conneries qu'on apprend.
je vous réexplique mon problème: j'arrive pas à faire un transfert d'une table à un fichier texte au format Ascii. je ne sais pas s'il faut écrire dans le code vb, la longueur d'un champ quelconque, avec son libellé, le nombre de caractère d'un champ exemple:dans le 1° champ, date-camion à une position de debut à 1 et finit à 8 puis num-camion va de 9 à 14....et ainsi de suite. Faut-il que je le précise en vb?
Avec votre commande que vous m'avez dites hier, DoCmd.TransferText, rien ne se passe. j'ai le meme message d'erreurqui s'affiche : erreur3021 Aucun enregistrement en cours et pourtant j'en ai dans ma table concernée.
j'ai cette meme erreur en mettant DoCmd.OutputTo et je ne vois pas d'erreur.
en fait, DoCmd.TransferText ne sert-il pas que pour word?
revoilà ma procedure:
'Cette procédure permet de générer, à partir d'une table sous Access, un fichier .txt au format Ascii, avec validation du transfert.
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:WINDOWSBureauaurélienaccess 2002essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then DoCmd.SetWarnings False 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.OutputTo acOutputForm, "TransfertXls", acFormatTXT, "C:WINDOWSBureauaurélienaccess 2002essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:WINDOWSBureauaurélienaccess 2002essai.txt")
End If
End Sub
Encore désolé pour hier, et merci pour votre aide Aurélien
on lui a dit , mais il écoute pas :o))))
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Laure" <AS-l-martinez@wanadoo.fr> a écrit dans le message de news: eV#l7kC4DHA.2384@TK2MSFTNGP10.phx.gbl...
Bonjour,
Essai déjà de voir si cette simple ligne de code qui suit marche
correctement.
TransfertXls étant ta table à transferer
C:essai.txt étant le fichier qui va être généré à partir de ta table
(essai d'abord dans C:, tu verra ensuite pour le générer sur le bureau)
Parfois il faut commencer simplement, voir si ça marche et ensuite rajouter
des contrôles etc...
"keke95" <keke95@caramail.com> a écrit dans le message de
news:f92746c7.0401210606.64fb62f9@posting.google.com...
désolé, si je ne vous précisez pas si ca marchait ou non. Je découvre
le forum. C'est en faisant des conneries qu'on apprend.
je vous réexplique mon problème: j'arrive pas à faire un transfert
d'une table à un fichier texte au format Ascii.
je ne sais pas s'il faut écrire dans le code vb, la longueur d'un
champ quelconque, avec son libellé, le nombre de caractère d'un champ
exemple:dans le 1° champ, date-camion à une position de debut à 1 et
finit à 8 puis num-camion va de 9 à 14....et ainsi de suite. Faut-il
que je le précise en vb?
Avec votre commande que vous m'avez dites hier, DoCmd.TransferText,
rien ne se passe. j'ai le meme message d'erreurqui s'affiche :
erreur3021 Aucun enregistrement en cours
et pourtant j'en ai dans ma table concernée.
j'ai cette meme erreur en mettant DoCmd.OutputTo et je ne vois pas
d'erreur.
en fait, DoCmd.TransferText ne sert-il pas que pour word?
revoilà ma procedure:
'Cette procédure permet de générer, à partir d'une table sous Access,
un fichier .txt au format Ascii, avec validation du transfert.
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination :
C:WINDOWSBureauaurélienaccess 2002essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
DoCmd.SetWarnings False 'Désactivation de l'affichage des messages
systèmes et transfert vers fichier texte
DoCmd.OutputTo acOutputForm, "TransfertXls", acFormatTXT,
"C:WINDOWSBureauaurélienaccess 2002essai.txt", True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:WINDOWSBureauaurélienaccess
2002essai.txt")
End If
End Sub
Encore désolé pour hier, et merci pour votre aide
Aurélien
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Laure" a écrit dans le message de news: eV#
Bonjour,
Essai déjà de voir si cette simple ligne de code qui suit marche correctement. TransfertXls étant ta table à transferer C:essai.txt étant le fichier qui va être généré à partir de ta table (essai d'abord dans C:, tu verra ensuite pour le générer sur le bureau)
Parfois il faut commencer simplement, voir si ça marche et ensuite rajouter des contrôles etc...
désolé, si je ne vous précisez pas si ca marchait ou non. Je découvre le forum. C'est en faisant des conneries qu'on apprend.
je vous réexplique mon problème: j'arrive pas à faire un transfert d'une table à un fichier texte au format Ascii. je ne sais pas s'il faut écrire dans le code vb, la longueur d'un champ quelconque, avec son libellé, le nombre de caractère d'un champ exemple:dans le 1° champ, date-camion à une position de debut à 1 et finit à 8 puis num-camion va de 9 à 14....et ainsi de suite. Faut-il que je le précise en vb?
Avec votre commande que vous m'avez dites hier, DoCmd.TransferText, rien ne se passe. j'ai le meme message d'erreurqui s'affiche : erreur3021 Aucun enregistrement en cours et pourtant j'en ai dans ma table concernée.
j'ai cette meme erreur en mettant DoCmd.OutputTo et je ne vois pas d'erreur.
en fait, DoCmd.TransferText ne sert-il pas que pour word?
revoilà ma procedure:
'Cette procédure permet de générer, à partir d'une table sous Access, un fichier .txt au format Ascii, avec validation du transfert.
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:WINDOWSBureauaurélienaccess 2002essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then DoCmd.SetWarnings False 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.OutputTo acOutputForm, "TransfertXls", acFormatTXT, "C:WINDOWSBureauaurélienaccess 2002essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:WINDOWSBureauaurélienaccess 2002essai.txt")
End If
End Sub
Encore désolé pour hier, et merci pour votre aide Aurélien
Raymond [mvp]
Bonsoir Pierre.
ça fait aussi 3 fois que je lui dit que ce chemin C:WINDOWSBureauaurélien n'a aucune chance d'être un chemin valide. le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre CFI [mvp]" a écrit dans le message de news:
on lui a dit , mais il écoute pas :o))))
-- Pierre CFI
Bonsoir Pierre.
ça fait aussi 3 fois que je lui dit que ce chemin C:WINDOWSBureauaurélien
n'a aucune chance d'être un chemin valide. le bureau d'un utilisateur n'a
jamais été écrit sous cette forme.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:eEMSnqC4DHA.2380@TK2MSFTNGP10.phx.gbl...
ça fait aussi 3 fois que je lui dit que ce chemin C:WINDOWSBureauaurélien n'a aucune chance d'être un chemin valide. le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre CFI [mvp]" a écrit dans le message de news:
on lui a dit , mais il écoute pas :o))))
-- Pierre CFI
3stone
Salut,
"Raymond [mvp]"
[...] le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
Heu... si... ( Win98 fr )
a condition que aurélien soit un répertoire qui en contient un autre qui se nomme "Access 2002"...
"C:WINDOWSBureauaurélienaccess 2002essai.txt"
Par contre, ce n'est pas là qu'il devrait les créer... tout au plus y déposer un racourci et, dans ce cas, il récupère le chemin d'origine.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Raymond [mvp]"
[...] le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
Heu... si... ( Win98 fr )
a condition que aurélien soit un répertoire qui en contient un autre
qui se nomme "Access 2002"...
"C:WINDOWSBureauaurélienaccess 2002essai.txt"
Par contre, ce n'est pas là qu'il devrait les créer... tout au plus y déposer
un racourci et, dans ce cas, il récupère le chemin d'origine.
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
[...] le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
Heu... si... ( Win98 fr )
a condition que aurélien soit un répertoire qui en contient un autre qui se nomme "Access 2002"...
"C:WINDOWSBureauaurélienaccess 2002essai.txt"
Par contre, ce n'est pas là qu'il devrait les créer... tout au plus y déposer un racourci et, dans ce cas, il récupère le chemin d'origine.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Raymond [mvp]
Bonsoir Pierre.
Où étais-tu passé ?
si tu as un sous-répertoire 2002, ça veut dire en toute logique que tu utilises 2002 en access. keke95 doit faire partie des rares utilisateurs qui sont passés à office 2002 sur win 98 avec 48 Mo de ram maximum mal défragmentés ou jamais. Si c'est le cas je retire. ce qui n'enlève pas le problème et les solutions proposées.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"3stone" a écrit dans le message de news:%
Salut,
"Raymond [mvp]"
[...] le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
Heu... si... ( Win98 fr )
a condition que aurélien soit un répertoire qui en contient un autre qui se nomme "Access 2002"...
"C:WINDOWSBureauaurélienaccess 2002essai.txt"
Par contre, ce n'est pas là qu'il devrait les créer... tout au plus y déposer
un racourci et, dans ce cas, il récupère le chemin d'origine.
-- A+ Pierre (3stone) Access MVP
Bonsoir Pierre.
Où étais-tu passé ?
si tu as un sous-répertoire 2002, ça veut dire en toute logique que tu
utilises 2002 en access. keke95 doit faire partie des rares utilisateurs qui
sont passés à office 2002 sur win 98 avec 48 Mo de ram maximum mal
défragmentés ou jamais. Si c'est le cas je retire. ce qui n'enlève pas le
problème et les solutions proposées.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"3stone" <3stone@skynet.be> a écrit dans le message de
news:%23gEOBWF4DHA.2608@TK2MSFTNGP09.phx.gbl...
Salut,
"Raymond [mvp]"
[...] le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
Heu... si... ( Win98 fr )
a condition que aurélien soit un répertoire qui en contient un autre
qui se nomme "Access 2002"...
"C:WINDOWSBureauaurélienaccess 2002essai.txt"
Par contre, ce n'est pas là qu'il devrait les créer... tout au plus y
déposer
un racourci et, dans ce cas, il récupère le chemin d'origine.
si tu as un sous-répertoire 2002, ça veut dire en toute logique que tu utilises 2002 en access. keke95 doit faire partie des rares utilisateurs qui sont passés à office 2002 sur win 98 avec 48 Mo de ram maximum mal défragmentés ou jamais. Si c'est le cas je retire. ce qui n'enlève pas le problème et les solutions proposées.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"3stone" a écrit dans le message de news:%
Salut,
"Raymond [mvp]"
[...] le bureau d'un utilisateur n'a jamais été écrit sous cette forme.
Heu... si... ( Win98 fr )
a condition que aurélien soit un répertoire qui en contient un autre qui se nomme "Access 2002"...
"C:WINDOWSBureauaurélienaccess 2002essai.txt"
Par contre, ce n'est pas là qu'il devrait les créer... tout au plus y déposer
un racourci et, dans ce cas, il récupère le chemin d'origine.
-- A+ Pierre (3stone) Access MVP
3stone
re,
"Raymond [mvp]"
Où étais-tu passé ?
chez les blouses blanches aux longs couteaux...
si tu as un sous-répertoire 2002,
il a peut-être simplement appelé son sous-répertoire "access 2000" (et une autre "access 97"), il n'a pas forcément installer là...
;-))
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
re,
"Raymond [mvp]"
Où étais-tu passé ?
chez les blouses blanches aux longs couteaux...
si tu as un sous-répertoire 2002,
il a peut-être simplement appelé son sous-répertoire "access 2000"
(et une autre "access 97"), il n'a pas forcément installer là...
;-))
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
