Bonjour,
J'ai une requete SQL sur une feuille Excel en ODBC mais j'ai des valeurs Null alors que ma feuille contient bien des données.
Voici le code :Merci de vos idées.
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 Set cn = connectADO(chemin) Set rs = New ADODB.Recordset ' == on parcours le tableau des abcisses == For i = 0 To UBound(tableau) ' === on parcourt la liste des types et valeurs Ex : PM Manager et CIS === For j = 0 To UBound(Donnees_A_Extraire) strQuery = " select avg ([" & PourCalcul & "]) from [" & Onglet & "$] where '" & Donnees_A_Extraire(j).titre & "' = '" _ & Donnees_A_Extraire(j).valeur & "' and '" & Abcisse_Nom & "'='" & tableau(i) & "'" rs.Open strQuery, cn, adOpenDynamic, adLockReadOnly If Not rs.EOF Then Tableau_2D(i, j) = rs.Fields(0).Value End If rs.Close Next j Next i
Bon week-end
Partager