Bonsoir,  
 
 
Une 'tite question :  
Est-il possible de créer un fichier texte (Fic.txt) d'une requête Union Access (Requête1).  
En effet, je parviens à créer à l'aide d'une fonction des fichiers txt à partir de requête sélection mais ça bloque dès lors qu'il s'agit d'union.  
 
Voici comment je procède :  
 
Code:  
sub appel()  
  Call ExportFile("C:\Fic.txt", "Requête1", date)  
end sub  
 
 
Code:  
Sub ExportFile(TXTFile As String, QueryName As String, DateT As String)  
    Dim FileNumber, i As Integer  
    Dim QueryCall As Recordset  
     
    Set QueryCall = stateQuery(QueryName, DateT)  
         
    FileNumber = FreeFile  
    Open TXTFile For Output As #FileNumber  
    For i = 0 To QueryCall.Fields.Count - 1  
        If i <> 0 Then  
            Print #FileNumber, ";";  
        End If  
        Print #FileNumber, QueryCall.Fields(i).Name;      
Next i  
    Print #FileNumber, ""  
           
    If Not QueryCall.EOF Then  
        While Not QueryCall.EOF  
            For i = 0 To QueryCall.Fields.Count - 1  
                If i <> 0 Then  
                    Print #FileNumber, ";";  
                End If  
                If IsNull(QueryCall.Fields(i).Value) = False Then  
                Print #FileNumber, QueryCall.Fields(i).Value;  
                End If  
            Next i  
            Print #FileNumber, ""  
            QueryCall.MoveNext  
        Wend  
    End If  
    QueryCall.Close  
    Set QueryCall = Nothing  
    Close #FileNumber  
End Sub  
 
 
 
 
 
Merci de votre aide.