transfert de données

je devais reprendre une base de données existante pour pouvoir faire
un transfert de données dans un fichier Ascii aprés génération de ce
dernier. Apparemment j'ai rectifié des erreurs mais pas toutes
notamment pour ceci :
Set oApp = CreateObject("Excel.Application") où je veux que ce soit
un fichier Ascii ou texte et non excel et si vous apercevez d'autres
erreurs dans les lignes suivantes, informez-moi

Cette procédure permet, à partir d'un fichier Access, de créer un
fichier Ascii.

Public Sub TransfertXls()

Dim oApp As Object
Dim myBook As Object
Dim mySheet As Object

Dim Bd As Database
Dim NC As String

Dim Ec As Recordset
DoCmd.SetWarnings False
DoCmd.OpenQuery ("RSupTransfertXls")
DoCmd.OpenQuery ("RTransfertXls")
DoCmd.SetWarnings True

Set Bd = CurrentDb()
Set Ec = Bd.OpenRecordset("TransfertXls")
NC = Ec![NUM_CAMION]
If Forms![FExpedition]![SuiviRdv] = -1 Then
DoCmd.Hourglass False
DoCmd.TransferText acExportDelim, "TransfertXls",
"C:\WINDOWS\Bureau\aurélien\access 2002\essai.txt"
DoCmd.Beep

MsgBox "Exportation du camion" & NC & "effectuée"
DoCmd.OpenReport "EtatBorder_Fichier"
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True

Set myBook = oApp.WOrkbooks.Open(FileName:="C:\WINDOWS\Bureau\aurélien\access
2002\essai.txt" & NC & ".xls")
Set mySheet = myBook.Application.ActiveWorkbook.Sheets("TransfertXls")
mySheet.Range("M1:P200").Locked = False
mySheet.Protect Password:="keller", DrawingObjects:=True,
Contents:=True, Scenarios:=True
mySheet.Range("A1").Select

myBook.Close savechanges:=True
oApp.Application.Quit
Call EnvoiEDIMail
End If

'Fermeture des Tables
Ec.Close
End Sub



Désolé du dérangement et merci d'avance