Discussion :

[steph77]

Bonjour le forum,

J'ai un petit souci avec ma requête Sql sous excel VBA.
Je souhaite faire une recherche dans un classeur fermé.
L'onglet du classeur se nomme Technique_1.
Je recherche dans cette table la "Reference" correspondant à la "Designation".

Tant que j'inscrit dans ma requête la désignation à chercher c'est Ok.

Code :

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

1
2
3
4
texte_SQL1 = "SELECT[Designation] FROM [TECHNIQUE_1$] WHERE [Reference] = '01-05355' "
    Set Rst1 = New ADODB.Recordset
    Set Rst1 = Cn.Execute(texte_SQL1)
    RequeteMaticeStd = Rst1.Fields("Reference").Value

Lorque je passe par une variable il me dit "impossible de trouver l'oblet dans la collection correpondant au nom ou à la référence demandé."

Code :

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

1
2
3
4
5
6
 
MatriceStd = "01-05355"
    texte_SQL1 = "SELECT[Designation] FROM [TECHNIQUE_1$] WHERE [Reference] = ' " & MatriceStd & " ' "
    Set Rst1 = New ADODB.Recordset
    Set Rst1 = Cn.Execute(texte_SQL1)
    RequeteMaticeStd = Rst1.Fields("Reference").Value

Je ne vois pas ou est l'erreur, sinon que le format de ma variable n'est pas correct?
Si quelqu'un à une idée?

[Minick]

Salut,

2 choses a verifier si ce n'est pas juste un probleme de recopie sur le forum

1

Code :

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

texte_SQL1 = "SELECT[Designation] FROM [TECHNIQUE_1$] WHERE [Reference] = '01-05355 "

ne manquerait il pas un apostrophe apres 05355

2

Code :

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

texte_SQL1 = "SELECT[Designation] FROM [TECHNIQUE_1$] WHERE [Reference] = ' " & MatriceStd & " ' "

enleve les espaces apres le 1er apostrophe et avant la 2eme

[steph77]

En effet pour 1er remarque c'est un problème de recopie.
Pour la 2nd remarque, non, il y a le même message d'erreur.
De plus en mode debug il ne m'affiche plus la valeur de ma variable lorsque je passe dessus sur la formule.

[Minick]

si tu affiches ta requete dans une msgbox ca donne quoi.

Code :

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

1
2
3
MatriceStd = "01-05355"
texte_SQL1 = "SELECT[Designation] FROM [TECHNIQUE_1$] WHERE [Reference] = '" & MatriceStd & "' "
Msgbox texte_SQL1

[steph77]

Rien, aucun message. juste la message box qui s'affiche.

[Minick]

Etrange effectivement...
Peux-tu mettre ton le code pour voir?