[Excel 2007-2010]Requête SQL qui ne donne pas le bon résultat

Bonjour à toutes et à tous, après avoir parcouru le forum, je n'ai pas trouvé de réponse :(

J'ai un fichier avec 1 feuille "Données", depuis une macro je fais une requête SQL sur cette feuille pour me sortir une nouvelle feuille avec les résultats de la requête. Cependant la requête ne me sort pas le nombre correcte d'enregistrement :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim cn As New ADODB.Connection Dim rs As ADODB.Recordset Dim strSql As String With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=2;"";" .Open End With Set rs = New ADODB.Recordset strSql = "SELECT * FROM [Données$]" Set rs = cn.Execute(strSql) Range("A1").CopyFromRecordset rs

---

Auparavant j'ai créé une nouvelle feuille qui est sélectionnée. Avec la requête j'ai à peine 14000 lignes qui se créent dans la nouvelle feuille alors que la feuille données a plus de 80000 lignes.
Vous allez me dire que l’intérêt actuelle est nul, mais la requête tendra a être développé de façon à faire des sélections plus tard.

Actuellement j'ai trouvé une autre solution avec un fichier externe excel et une requête sur ce fichier mais j'aimerai avoir un seul fichier plutôt que deux :)

Merci d'avance.

Bonjour, merci à ceux qui m'ont lu, à défaut de trouver une solution pour la requête, j'ai trouvé une autre solution alternative, sans utilisé de requête SQL :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sheets("Données").Select nbrlig = Range("A1").CurrentRegion.Rows.Count   ActiveSheet.Range("$A$1:$Q$" & nbrlig).AutoFilter Field:=8, Criteria1:= _ nom Range("A2", ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(0, ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column - 1)).SpecialCells(xlCellTypeVisible).Cells.Select Selection.Copy Sheets(ongl).Select Cells(1, "A").Select ActiveSheet.Paste

---

Je fais un tri (équivalent à ma requête), je sélectionne les lignes du tri et je les copie dans la nouvelle feuilles.

Merci de m'avoir lu, mais si une personne a la solution à mon problème de requête, je prends quand même :)