Discussion :

[Davidw]

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 :

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

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.

[Davidw]

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 :

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

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