Sub importFichierTexte_ADO()
Dim Rc As ADODB.Recordset
Dim cn As String, Chemin As String, Fichier As String
Dim i As Long
Chemin = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'
Fichier = 'monFichier.txt'
cn = 'Driver={Microsoft Text Driver (*.txt; *.csv)};' & _
'Dbq=' & Chemin & ';Extensions=asc,csv,tab,txt'
Set Rc = New ADODB.Recordset
Rc.Open Source:='SELECT * FROM ' & Fichier, ActiveConnection:=cn
If Not Rc.EOF Then
For i = 0 To Rc.Fields.Count - 1 'recuperation entetes
Cells(1, 1).Offset(0, i) = Rc.Fields(i).Name
Next
Range('A2').CopyFromRecordset Rc
End If
Rc.Close
End Sub