Discussion :

[Elremmiz]

Bonjour le forum,


Petite question rapide mais je n'arrive pas à voir comment faire

Je lis des données dans un classeur fermé, mais la syntaxe de ma requête n'est pas bonne. Un SELECT * FROM [" & NomFeuille & "$] marche très bien, mais je dois rajouter un WHERE, avec la valeur d'une variable :

Code :

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

texte_SQL = "SELECT * FROM [" & NomFeuille & "$] WHERE" & Range("B4:B100").Text = "& D"

Je pense que le problème vient de la variable D que j'ai mal intégré à la requête.

Merci d'avance !

[Abed_H]

Bonjour
si la variable D est string

Code :

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

Sql = "SELECT * FROM [" & NomFeuille & "$] WHERE Range("B4:B100").Text = '"& D & "'"

Abed_H

[Elremmiz]

Merci de ta réponse ! J'ai mis ta requête à la place de la mienne, mais il me marque erreur de syntaxe

il faut que je mette automatiquement

Code :

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

WHERE" & Range("B4:B100").Text

Les dquote et le et commercial sont obligatoires. j'ai laissé la suite, mais ça me met la même erreur à l'exécution, à ce niveau là :

Code :

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

Set Rst = Cn.Execute(texte_SQL)

--> Instruction SQL Non Valide...

Vive les requêtes

[cafeine]

Hello,

mais que renvoie : Range("B4:B100").Text ?

[Abed_H]

si le champ B4:B100 a un nom exemple Code tu indique ce nom.

Code :

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

Sql = "SELECT * FROM [" & NomFeuille & "$] WHERE Code = '"& D & "'"

voici un exemple

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
Sub SelectionDonnées()	
  Dim Cn As ADODB.Connection	
  Dim Rst As ADODB.Recordset	
        Dim Feuille As String, strSQL As String	
        Dim Code As String	
        Feuille = "Feuil3"	
 
    Code = "D1403"	
    fichDest = ThisWorkbook.FullName	
 
    Set Cn = New ADODB.Connection	
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _	
               "Data Source=" & fichDest & ";" & _	
               "Extended Properties=""Excel 8.0;HDR=YES;IMEX=2;"""	
 
 strSQL = "Select * from [" & Feuille & "$] WHERE Codec = '" & Code & "' "	
 
        Set Rst = New ADODB.Recordset	
        Set Rst = Cn.Execute(strSQL)	
 
 Range("A15").CopyFromRecordset Rst	
 Cn.Close	
 Set Cn = Nothing	
End Sub

Bonne journée

Abed_H

[Elremmiz]

Alors Range("B4:B100") contient donc des cellules contenant des chaînes.
Par exemple les jours de la semaine. Dans ma variable D je mets "Mardi".
En clair ma requête serait de prendre tout ce qui figure sur la feuille, uniquement pour ce qui concerne le Mardi ^^

La variable "Code" est donc ma variable "D".

[Jean-Pierre49]

bonjour

il me semble Que Where ne compare que deux valeurs uniques
La tu teste x valeurs à une autre unique

il faudrait à mon sens faire une sous requête ou boucler sur ta plage
avec un test sur ta valeur recherchée
et effectuer ta requête a chaque fois que le test est vrai



Jean-Pierre

[Elremmiz]

Bien sûr je suis bête !

Merci Jean Pierre

Je vous tiens au courant dans la journée.

[AlainTech]

Quel que soit le résultat de tes recherches, je vois, malgré tout, des fautes de syntaxe dans la requête.

Code :

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

... NomFeuille & "$] WHERE" & Range("B4:B100").Text ...

Il manque un espace:

Code :

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

... NomFeuille & "$] WHERE " & Range("B4:B100").Text ...

et

Code :

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

... "$] WHERE" & Range("B4:B100").Text = "& D"

Les guillemets et le & sont mal placés:

Code :

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

... "$] WHERE" & Range("B4:B100").Text & " = " & D

Eventuellement ajouter les single quotes comme conseillé plus haut.

Pour voir la "tête" que peut avoir une requête avec paramètres calculés, il est toujours bon d'en faire un debug.print.