J'ai développé une application qui pilote des requêtes excel depuis Access.
Depuis que je suis passé en Office 2010, j'ai un message d'erreur "Aucune valeur donnée pour un ou plusieurs des paramètres requis."
Avez-vous une idée?
Extraction du code qui pose problème
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 Set Cn = New ADODB.Connection With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & chFichExtract & _ ";Extended Properties=""Excel 8.0;HDR=Yes;"";" .Open End With txt_SQL = "SELECT COUNT(N_Incident) FROM [" & nomFeuil & "$] " txt_SQL = txt_SQL & "WHERE Priorite = '" & tablPriorite(j) & "' AND Nature = '" & tablNature(i) & "' " txt_SQL = txt_SQL & "AND (Statut = 'Ouvert et clos dans la période' " txt_SQL = txt_SQL & "OR Statut = 'Ouvert dans la période et en cours');" Set Rst = New ADODB.Recordset Set Rst = Cn.Execute(txt_SQL) Cells(y, numColDonn).CopyFromRecordset Rst
Partager