[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] importFichierTexte_ADO()
[COLOR=darkblue]Dim[/COLOR] Rc [COLOR=darkblue]As[/COLOR] ADODB.Recordset
[COLOR=darkblue]Dim[/COLOR] cn [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], Chemin [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], Fichier [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
[COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
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"
[COLOR=darkblue]Set[/COLOR] Rc = [COLOR=darkblue]New[/COLOR] ADODB.Recordset
Rc.Open Source:="SELECT * FROM " & Fichier, activeConnection:=cn
[COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] Rc.EOF [COLOR=darkblue]Then[/COLOR]
[COLOR=darkblue]For[/COLOR] i = 0 [COLOR=darkblue]To[/COLOR] Rc.Fields.Count - 1 [COLOR=green]'recuperation entetes[/COLOR]
Cells(1, 1).Offset(0, i) = Rc.Fields(i).Name
[COLOR=darkblue]Next[/COLOR]
Range("A2").CopyFromRecordset Rc
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
Rc.Close
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]