Bonjour,
je cherche à récupérer des informations contenues dans une base access et afficher les informations récupérées dans les colonnes d'un tableau excel.
Pour le moment je n'arrive même pas à enregistrer les informations dans une collection, j'obtiens une erreur du type "Argument non facultatif" que je ne comprends pas.

Voici mon code pour le moment:
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Public mycnx As ADODB.Connection
Public myrs As ADODB.Recordset
Dim save As Variant
Dim ouChercher As String
Dim valeur As Variant
Dim ouChercherInterm As String
Dim ValeurInterm As Variant
Dim ouChercherInterm2 As String
Dim ValeurInterm2 As Variant
Dim tabelements() As Variant
'---------------------------
 
Private Sub BoutonAffichage_QuandClic()
Set mycnx = New ADODB.Connection
    mycnx.Provider = "Microsoft.Jet.Oledb.4.0"
    'Définition de la chaîne de connexion
    mycnx.ConnectionString = "U:\bdSuiviDevis.mdb"
    'Ouverture de la base de données
Dim i As Integer
Dim strSql As String
Dim critere As String
 
critere = Cells(1, 2).Value
Range(A7, AM900).Clear
For i = 7 To 900
    strSql = "SELECT '" & quoiChercher & "' FROM '" & ouChercher & "' WHERE '" & critere & "' = " & save & ";"
    Debug.Print strSql
 
    'strSql = "SELECT '" & quoiChercher & "' FROM '" & ouChercher & "' WHERE '" & ouChercher& "'.'" & valeurInterm & "' = '"& ouChercherInterm& "'.'" & valeurInterm2 & ";"
    Set myrs = New ADODB.Recordset
    myrs.Open strSql, mycnx, adOpenDynamic, adLockReadOnly, adCmdText
 
    tabelements() = tabelements() + myrs()
 
Next i
End Sub
le debug.print n'affiche rien, et l'erreur m'apparait dès que j'appuis sur mon bouton, sans explication de ce qu'il manque / ce qu'il faut changer

Merci d'avance à ceux qui pourrait m'aider.