Ben voilà, lorsque je le fais en direct, avec fichier,
exportation......il n'y a pas de problème. Ca marche. Donc mon erreur
est dans le vb.
Je fais une exportation à longueur fixe (et non délimitée)car
l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que
leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne
le voulaient pas autrement.
Il y a 16 champs dans la table, c'est pour réaliser un suivi-client
avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et
celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas
vous prendre la tête. Je ne vois pas d'erreur personellement, donc si
vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination : C\:essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
'Désactivation de l'affichage des messages systèmes et transfert
vers fichier texte
DoCmd.SetWarnings False
DoCmd.TransferText acExport, , "TransfertXls", "C:\essai.txt",
True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:\essai.txt")
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
Raymond [mvp]
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
End If
End Sub
Merci Aurélien
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" <keke95@caramail.com> a écrit dans le message de
news:f92746c7.0401220656.7ef761cd@posting.google.com...
Ben voilà, lorsque je le fais en direct, avec fichier,
exportation......il n'y a pas de problème. Ca marche. Donc mon erreur
est dans le vb.
Je fais une exportation à longueur fixe (et non délimitée)car
l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que
leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne
le voulaient pas autrement.
Il y a 16 champs dans la table, c'est pour réaliser un suivi-client
avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et
celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas
vous prendre la tête. Je ne vois pas d'erreur personellement, donc si
vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
'Désactivation de l'affichage des messages systèmes et transfert
vers fichier texte
DoCmd.SetWarnings False
DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt",
True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:essai.txt")
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
End If
End Sub
Merci Aurélien
Pierre CFI [mvp]
.../// là, tu exportes en délimite, a quoi sert l'argument placé dans la sub bon, si ta base est pas trop grosse une fois zippée, envoie là moi access quelle version ?? enleve les x a mon e mail
-- 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 "keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
End If
End Sub
Merci Aurélien
...///
là, tu exportes en délimite, a quoi sert l'argument placé dans la sub
bon, si ta base est pas trop grosse une fois zippée, envoie là moi
access quelle version ??
enleve les x a mon e mail
--
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
"keke95" <keke95@caramail.com> a écrit dans le message de news: f92746c7.0401220656.7ef761cd@posting.google.com...
Ben voilà, lorsque je le fais en direct, avec fichier,
exportation......il n'y a pas de problème. Ca marche. Donc mon erreur
est dans le vb.
Je fais une exportation à longueur fixe (et non délimitée)car
l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que
leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne
le voulaient pas autrement.
Il y a 16 champs dans la table, c'est pour réaliser un suivi-client
avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et
celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas
vous prendre la tête. Je ne vois pas d'erreur personellement, donc si
vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
'Désactivation de l'affichage des messages systèmes et transfert
vers fichier texte
DoCmd.SetWarnings False
DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt",
True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:essai.txt")
.../// là, tu exportes en délimite, a quoi sert l'argument placé dans la sub bon, si ta base est pas trop grosse une fois zippée, envoie là moi access quelle version ?? enleve les x a mon e mail
-- 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 "keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
End If
End Sub
Merci Aurélien
Pierre CFI [mvp]
bien vu l'aveugle, et en plus a chaque fois on a pris soin de faire des copier coller, de ce fait je ne regardais méme plus le code
-- 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 "Raymond [mvp]" a écrit dans le message de news: #
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
End If
End Sub
Merci Aurélien
bien vu l'aveugle, et en plus a chaque fois on a pris soin de faire des copier coller, de ce fait je ne regardais méme plus le code
--
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
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de news: #xJUSkP4DHA.1428@TK2MSFTNGP12.phx.gbl...
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" <keke95@caramail.com> a écrit dans le message de
news:f92746c7.0401220656.7ef761cd@posting.google.com...
Ben voilà, lorsque je le fais en direct, avec fichier,
exportation......il n'y a pas de problème. Ca marche. Donc mon erreur
est dans le vb.
Je fais une exportation à longueur fixe (et non délimitée)car
l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que
leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne
le voulaient pas autrement.
Il y a 16 champs dans la table, c'est pour réaliser un suivi-client
avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et
celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas
vous prendre la tête. Je ne vois pas d'erreur personellement, donc si
vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
'Désactivation de l'affichage des messages systèmes et transfert
vers fichier texte
DoCmd.SetWarnings False
DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt",
True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:essai.txt")
bien vu l'aveugle, et en plus a chaque fois on a pris soin de faire des copier coller, de ce fait je ne regardais méme plus le code
-- 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 "Raymond [mvp]" a écrit dans le message de news: #
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
End If
End Sub
Merci Aurélien
Raymond [mvp]
Il y a bien que les anciens pour voir ça, mais tu ne pouvais pas le voir c'est la 1ere fois, avant c'était du délim qui est passé à fixed en passant par export.
-- @+ 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:%
bien vu l'aveugle, et en plus a chaque fois on a pris soin de faire des copier coller, de ce fait je ne regardais méme plus le code
-- Pierre CFI
Il y a bien que les anciens pour voir ça, mais tu ne pouvais pas le voir
c'est la 1ere fois, avant c'était du délim qui est passé à fixed en passant
par export.
--
@+
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:%236kxxMQ4DHA.2480@TK2MSFTNGP09.phx.gbl...
bien vu l'aveugle, et en plus a chaque fois on a pris soin de faire des
copier coller, de ce fait je ne regardais méme plus le code
Il y a bien que les anciens pour voir ça, mais tu ne pouvais pas le voir c'est la 1ere fois, avant c'était du délim qui est passé à fixed en passant par export.
-- @+ 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:%
bien vu l'aveugle, et en plus a chaque fois on a pris soin de faire des copier coller, de ce fait je ne regardais méme plus le code
-- Pierre CFI
Pierre CFI [mvp]
copie de mon msg il y a qq jours ************* bonjour erreur de syntaxe, il manque une , aprés acExportDelim DoCmd.TransferText acExportDelim,, "TransfertXls","C:WINDOWSBureauaurélienaccess 2002essai.txt", True
********************
-- 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 "Raymond [mvp]" a écrit dans le message de news: #
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
End If
End Sub
Merci Aurélien
copie de mon msg il y a qq jours
*************
bonjour
erreur de syntaxe, il manque une , aprés acExportDelim
DoCmd.TransferText acExportDelim,, "TransfertXls","C:WINDOWSBureauaurélienaccess 2002essai.txt", True
********************
--
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
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de news: #xJUSkP4DHA.1428@TK2MSFTNGP12.phx.gbl...
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" <keke95@caramail.com> a écrit dans le message de
news:f92746c7.0401220656.7ef761cd@posting.google.com...
Ben voilà, lorsque je le fais en direct, avec fichier,
exportation......il n'y a pas de problème. Ca marche. Donc mon erreur
est dans le vb.
Je fais une exportation à longueur fixe (et non délimitée)car
l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que
leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne
le voulaient pas autrement.
Il y a 16 champs dans la table, c'est pour réaliser un suivi-client
avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et
celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas
vous prendre la tête. Je ne vois pas d'erreur personellement, donc si
vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object
Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera
écrasé.Voulez-vous continuer ?") = vbYes Then
'Désactivation de l'affichage des messages systèmes et transfert
vers fichier texte
DoCmd.SetWarnings False
DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt",
True
DoCmd.SetWarnings True
MsgBox ("Transfert réussi dans : C:essai.txt")
copie de mon msg il y a qq jours ************* bonjour erreur de syntaxe, il manque une , aprés acExportDelim DoCmd.TransferText acExportDelim,, "TransfertXls","C:WINDOWSBureauaurélienaccess 2002essai.txt", True
********************
-- 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 "Raymond [mvp]" a écrit dans le message de news: #
Export n'existe pas.
DoCmd.TransferText acExportFixed, , "TransfertXls", "C:essai.txt", True -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"keke95" a écrit dans le message de news:
Ben voilà, lorsque je le fais en direct, avec fichier, exportation......il n'y a pas de problème. Ca marche. Donc mon erreur est dans le vb. Je fais une exportation à longueur fixe (et non délimitée)car l'entreprise qui m'a donné ça veut le faire comme ça. C'est pour que leurs transporteurs comprennent mieux...m'ont-ils dit!!! Et qu'ils ne le voulaient pas autrement. Il y a 16 champs dans la table, c'est pour réaliser un suivi-client avec, comme clé primaire, NUM_CAMION et CT_NUM (le numéro du camion et celui du client).
Je vous remontre mon code vb pour la derniere fois car je ne veux pas vous prendre la tête. Je ne vois pas d'erreur personellement, donc si vous, ou quelqu'un d'autre en voient, faites-moi signe!!!
Public Sub GenerationFichiersAscii(ByVal NUM_TRANS As Long)
Dim oApp As Object Dim myBook As Variant
If MsgBox("Le fichier de destination : C:essai.txt sera écrasé.Voulez-vous continuer ?") = vbYes Then 'Désactivation de l'affichage des messages systèmes et transfert vers fichier texte DoCmd.SetWarnings False DoCmd.TransferText acExport, , "TransfertXls", "C:essai.txt", True DoCmd.SetWarnings True MsgBox ("Transfert réussi dans : C:essai.txt")
