Probleme pour tranferer du texte

Question

Bonjour a tous

Bon ben comme d'hab j'ai un probleme:
J'exporte des infos de plusieurs bd vers une seule puis je veux transferer le texte de celle-ci vers un fichier texte et c'est la que ca plante. Comme erreur ca me dit : L'action ou la  methode requiert un argument 'Nom Fichier'.
Bon pour ce qui me diront que je ne cree pas le fichier j'ai deja essaye mais la fonction VBA cree le fichier automatiquement donc ja comprend pas trop pourquoi ca plante comme ca. Voila mon code:

Option Compare Database


Public Function TraitementLGNBP()


'Variables
Dim Db1 As Database
Dim Insertion As String
Dim Requete As String
Dim Suppression As String
Dim Selection As String
'On Error GoTo CalculEcheance_Error:


'Ouverture de la base
Set Db1 = CurrentDb()


'-----------------------------------
Suppression = "DELETE * FROM LGNBP"
DoCmd.RunSQL Suppression, -1


Insertion = "INSERT INTO LGNBP (LGN_TYPE, LGN_RESERVE, BPR_NUMBP, BRG_NUMREGR, BRG_DEPAUTO, ZEM_CODE, "
Insertion = Insertion & "LBP_POSTE, ART_CODE, LBP_APREP, LBP_LIBART, LOT_CODE, PAL_SSCC, CONT_DATE, "
Insertion = Insertion & "LBP_USER1, CRLF) "



Requete = "SELECT 'LB' AS Expr1, '' AS Expr2, GZCRPDTA_F47027.SZDOCO, '' AS Expr3, 0 AS Expr4, "
Requete = Requete & "'' AS Expr5, GZCRPDTA_F47027.SZLNID, GZCRPDTA_F47027.SZLITM, ([SZUORG]*1000) AS QTE, "
Requete = Requete & "GZCRPDTA_F47027.SZDSC1, GZCRPDTA_F47027.SZLITM, '' AS Expr6, 0 AS Expr7, '' AS Expr8, 0 AS Expr9 "
Requete = Requete & "FROM GZCRPDTA_F47027"


DoCmd.RunSQL Insertion & Requete, -1


DoCmd.TransferText acExportDelim, "LGNBP", "D:\GAZECHIM\PROGRAMME	est.txt"
'-----------------------------------
CalculEcheance_Exit:
    Exit Function


CalculEcheance_Error:
    'MsgBox Error$
    Resume CalculEcheance_Exit


End Function

neometaller · Answer

Je
ne connais pas cette fonction, mais dans VBA y'a moyen de voir les
arguments &#224; mettre et apparemment t'as oubli&#233; quelque chose ou juste
oubli&#233; une virgule vu que c'est optionel !



DoCmd.TransferText acExportDelim, [Specification Name], "LGNBP", "D:\GAZECHIM\PROGRAMME	est.txt"



en esp&#233;rant que &#231;a t'aide.



++

rieuxg · Answer

Merci beaucoup a toi

J'ai resolu le probleme hier soir et c'est bien ce que tu me dis.
DoCmd.TransferText acExportDelim, ,"LGNBP", "D:\GAZECHIM\PROGRAMME	est.txt"

C'est un parametre optionel qui me bloquait donc j'ai misune virgule pour montrer un champs vide et ca marche nickel.

Probleme pour tranferer du texte

2 réponses

Discussions similaires