Discussion :

[Ashireon]

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 :

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
 
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"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

[Thumb down]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ashireon]

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