Créer un recordset à partir d'un tableau Excel filtré
bonjour à tous,
J'ai un tableau Excel Filtré.
Je souhaite créer un recordset mais à partir du résultat filtré uniquement.
Or lorsque je créé mon recordset, j'obtiens toutes les données
voici mon programme :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| Sub test()
Dim Conn As ADODB.Connection
'Dim rsT As ADODB.Recordset
Dim Fichier As String, Direction As String, rSQL As String
'Données de ce fichier
Direction = ThisWorkbook.Path
Fichier = ThisWorkbook.Name
'Ouverture de la connection
Set Conn = New ADODB.Connection
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Direction & "\" & Fichier & _
";Extended Properties=Excel 8.0;"
.Open
End With
'Déclaration de la recherche SQL
rSQL = "SELECT * FROM [Sheet1$]"
'Execution de la recherche SQL
Set rsT = New ADODB.Recordset
With rsT
.ActiveConnection = Conn
.Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect
End With
'Récupération des enregistrements
For i = 0 To rsT.RecordCount - 1
MsgBox rsT.Fields(0).Value
rsT.MoveNext
Next i
'Fermeture de la table et de la connection
rsT.Close
Conn.Close
Set rsT = Nothing
Set Conn = Nothing
End Sub |
Comment faire ?
Des idées ?
Merci
Dams'
