[XL-2013] VBA recordset trop peu de paramètres 3 attendu

VBA recordset trop peu de paramètres 3 attendu

Bonjour à tous et à toutes,
3 paramètres attendu c'est que j'ai loupé quelque chose qui doit être énorme.

Je cherche à me connecter sur un classeur fermé pour cela j'utilise adodb avec le provider Excel et je veux extraire des données dans un recordset.
Je pense que ça ira plus vite d'extraire les données que d'ouvrir le classeur et faire du balayage et choper la ou les lignes que je souhaite. De plus le fichier source ne sera indisponible que pendant la connexion.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 chemin = "Z:\1-DOCUMENTS\0-Chrono.xlsx" strconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & chemin & ";HDR=Yes';" . . . conn.Open strconnect Dim Requete As String Set RST = New ADODB.Recordset Requete = "select * from [" & Qual & "$A6:Z500] where " & tableau2col1 & "='" & Pseudo & "' OR " & tableau2col2 & "='" & Pseudo & "' OR " & tableau2col3 & "='" & Pseudo & "';" RST.Open Requete, conn ' enregistrement feuille qualité
Valeur de la variable Requete :

Code:

"select * from [MQ = Manuel Qualité$A5:Z500] where tableau2.Rédacteur='FDA' OR tableau2.Relecteur='FDA' OR tableau2.Approbateur='FDA';"

Donc ça plante sur la ligne RST.Open Requete, conn.
Trop peu de paramètres. 3 attendu et là je vois pas quel paramètre mettre pour le pilote choisi.

Merci d'avance pour celui qui saurait

Bonjour,

Code:

1
2
3
4
5
6
7
Private Sub test()
    With CreateObject("Adodb.Connection")
        .Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & ThisWorkbook.FullName & ";HDR=Yes';"
         Set RST = .Execute("select * from [MQ = Manuel Qualité$] where [tableau2#Rédacteur]='FDA' OR [tableau2#Relecteur]='FDA' OR [tableau2#Approbateur]='FDA';")
        .Close
    End With
End Sub

En fait ca plantait car je pointe sur un tableau dynamique , du coup j'ai crée une plage nommée et la ca fonctionne. la requête fonctionne mais du coupe l'erreur on ne sait pas ce qu'elle veut dire faut creuser sur le net