Pb sur création fichier texte à partir d'une requête Access

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.