1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Sub importFichierTexte_ADO()
Dim Rc As ADODB.Recordset
Dim cn As String, Chemin As String, Fichier As String
Dim i As Long
Chemin = "C:\A"
Fichier = "1.cvs"
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 & _
" WHERE NomChamp = 'x'", 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 |
