Bonjour,
Je viens de constater en faisant une requette de filtrage de données pour ne pas conserver les doublons que j'avais un écart entre la requete ADODB.Excel
et la requete Access 2007.
Voilà le code sur Excel 2007:
La plage nommée Data dans Excel est la suivante :
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 Private Sub Action() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim req As String Set cnn = New ADODB.Connection '--- Connection --- With cnn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ";Extended Properties=""Excel 8.0;HDR=YES;""" .Open End With '----------------- req = "select [CodeFournisseur],[Fournisseur]" & _ " from Data group by [CodeFournisseur],[Fournisseur]" Set rs = cnn.Execute(req) ActiveSheet.Range("D2").CopyFromRecordset rs rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing End Sub
Code Fournisseur et Fournisseur sont dans les colonnes A et B.Data ='Onglet'!$A:$B
J'obtiens 270 lignes sur Excel, et 397 sur Access.
Dans Access je pose la requette suivante :
select Table1.CodeFournisseur,Table1.Fournisseur
from Table1 group by Table1.CodeFournisseur,Table1.Fournisseur;
Merci d'avance de vos idées;
Partager