Discussion :

[damsmut]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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'

[pgz]

Bonjour.

Tu peux modifier ta requête en ajoutant une clause WHERE pour tous tes critères de filtre.

Cordialement,

PGZ

[damsmut]

oui ça je connais, mais je ne souhaite pas faire comme cela... je souhaite pouvoir prendre directement les résultats filitrés

[pgz]

Bonjour.

oui ça je connais, mais je ne souhaite pas faire comme cela... je souhaite pouvoir prendre directement les résultats filitrés

C'est un souhait ou une nécessité? Il te sert à quoi ensuite ton recordset?

PGZ

[Invité]

Bonjour

Pourtant c'est la seule manière de faire (avec la clause Where comme te l'indique pgz) si tu veux récupérer certaines données.

Ta connexion reconnait ta feuille dans son entier.

L'autre solution est de passer par automation (en pilotant Excel), car il y a des méthodes pour récupérer les données issues d'un filtre.

Philippe

[damsmut]

oais du coup j'ai fait comme ça : copier coller des résultat filtré dans une nouvelle feuille et création du recordset à partir de là

merci

a+