Discussion :

[Counda_T]

Bonjour,

J'ai sa

Code :

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

1
2
3
4
5
SQLManufacture = "SELECT Tbl_TransfertJournee.Str_Ref, Tbl_TransfertJournee.Bool_Manufacture, Tbl_TransfertJournee.Bool_TypeTransfert" & _
" FROM Tbl_TransfertJournee" & _
" WHERE Tbl_TransfertJournee.Bool_Manufacture=True;"
 
DoCmd.TransferText acExportDelim, "KanbanManufactureSpecExp", SQLManufacture, "C:\...\KanbanManufacture.txt"

Cela ne fonctionne pas... Il me met Erreur d'execution 7871 :
Le nom de table entré n'est pas conforme aux règles d'affectation des noms d'objet Microsoft Office access.
Au lieu d'inséré un objet access, on peut inséré une requete sql préalablement définie plus haut ? (ici SQLMANUFACTURE)

[jimbolion]

Bonjour,

Consulte ce lien :

http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

Tu verras que tu ne peux passer dans le troisième argument qu'une table ou une requête stockée et pas le contenu d'une variable !

Ce lien t'explique comment créer une requête et la stocker :

http://msdn.microsoft.com/en-us/libr...ffice.12).aspx

Tu pourras alors aisément effectuer ton Transfert

Bonne journée !

[Counda_T]

Je vais voir sa !
Merci bien !

[Counda_T]

Voici mon code :

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
Dim oDb As DAO.Database
Dim Req As QueryDef
 
'Instancie l'objet database
Set oDb = CurrentDb
 
With oDb
' Créé temporairement une requête
      Set Req = oDb.CreateQueryDef("Request", _
         "SELECT Tbl_TransfertJournee.Str_Ref, Tbl_TransfertJournee.Bool_Manufacture, Tbl_TransfertJournee.Bool_TypeTransfert" & _
         " FROM Tbl_TransfertJournee" & _
         " WHERE Bool_Manufacture=False And Bool_TypeTransfert=False;")
 
        DoCmd.TransferText acExportDelim, "KanbanSpecExp", "Request", "C:\Documents and Settings\trc1tc\Desktop\Counda\Kanban.txt"
      ' Suppréssion de la requête
        .QueryDefs.Delete ("Request")
        Req.Close
End With

Il créé bien la requête en dur mais ne la supprime pas, et le fichier Kanban.txt disparaît a chaque fois et me dis qu'il n'existe pas ...

[jimbolion]

Je viens de faire ce test et conforme à ce que tu viens de faire !

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
Dim oDb As DAO.Database
Dim Req As QueryDef
 
'Instancie l'objet database
Set oDb = CurrentDb
 
With oDb
' Créé temporairement une requête
      Set Req = oDb.CreateQueryDef("Request", "SELECT Chantier.[Numéro de chantier], Chantier.[Nom du chantier], Chantier.Adresse, Chantier.[Code postal] FROM Chantier;")
      ' Suppréssion de la requête
        DoCmd.TransferText acExportDelim, "", "Request", "C:\test.txt"
        .QueryDefs.Delete ("Request")
        Req.Close
End With
End Function

Et çà fonctionne nickel !

Création + suppression pas de problème !

Mets des points d'arret pour voir d'ou vient le probleme !
Essai de genérer ton fichier à la racine....

en tout cas tu es tout proche de ta solution...