Erreur de syntaxe vBa

Bonjour,

J'ai besoin de votre aide...

Le programme marche. La requête pour créer une table en commentaire fonctionne.

J'aimerais maintenant exécuter mon SELECT mais sa me met une erreur :

Citation:

---

Erreur de compilation
Erreur de syntaxe

---

Et sa surligne cette ligne :

Code:

---

.Open "select designation" _&

---

Peut-on m'aider s'il vous plait ?

Code:

---

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

Private Sub MacroDesignation()   Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim fld As ADODB.Field Dim sql As String Dim valcel As String valcel = Excel.Range("Feuil1!A2").Value   'connect to MySQL server using MySQL ODBC 3.51 Driver Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=192.168.253.128;" & " DATABASE=bddintranetpol;" & "UID=user_odbc;PWD=mdpusrodbc; OPTION=3" conn.Open   'conn.Execute "CREATE TABLE TestAdrien(ID int not null primary key, Nom varchar(20)," _& "Texte text, Date date, Temps time)" Set rs = New ADODB.Recordset   'conn.Execute "SELECT Designation FROM produits_test WHERE code_produit = 1"   'Feuil1.Range("B2").CopyFromRecordset rs, 200   With rs .ActiveConnection = conn .Open "select designation" _& "from produits_test" _& "where code_produit=' & valcel'" Feuil1.Range("A2").CopyFromRecordset rs   .Close End With   conn.Close Set rs = Nothing Set conn = Nothing   End Sub

---

Merci.

Cordialement,
DexX

Bonjour,
Je vois trois problèmes :

1. La concaténation n'est pas correcte : le _ est un caractère de continuation et doit être à la fin de la ligne, le & avant ou au début de la suivante :
   Code:

   ---

   1 2	.Open "select designation" & _ "from produits_test" (etc)

   ---

   ou bien
   
   Code:

   ---

   1 2	.Open "select designation" _ & "from produits_test" (etc)

   ---

2. L'intégration de la variable est mal faite, il faut fermer la chaîne de caractères, mettre la variable, puis rouvrir la chaîne pour insérer la dernière quote :
   Code:

   ---

   "where code_produit='" & valcel & "'"

   ---

3. Il faudrait prévoir des espaces entre les portions de chaîne concaténées, pour le moment la requête SQL est :
   Code:

   ---

   "select designationfrom produits_testwhere code_produit=' & valcel'"

   ---

Bonjour,

J'ai mis comme cela :

Code:

---

.Open "select designation" _& "from produits_test" _& "where code_produit='" & valcel & "'"

---

Sa me met toujours l'erreur de syntaxe :$.

Voilà, comme ceci donc :

Code:

---

1 2 3

.Open "select designation" _ & "from produits_test" _ & "where code_produit='" & valcel & "'"

---

Sa me met une erreur du style :

You have an error in your SQL syntax; check.....etc

Re-bonjour,
Il manque toujours les espaces ! Avec ta syntaxe tu essaie d'exécuter ça :

Code:

---

"select designationfrom produits_testwhere code_produit='" & valcel & "'"

---

Il faut coder

Code:

---

1 2 3

.Open "select designation " _ & "from produits_test " _ & "where code_produit='" & valcel & "'"

---

D'accord merci !

Sa marche parfaitement...

Par contre, j'aimerais que cette macro s'active automatiquement dès qu'on tape le numéro dans la cellule A2..Et non que une fois que j'ai tapé le nombre je sois obligé d'exécuter la macro manuellement.

Est-ce possible ??

Merci de votre aide ..

J'ai rajouté cela en cherchant un peu :

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

---

Avec le code de ma macro dedans...J'aimerais maintenant que mes cellules aillent de A1 à A100...

J'ai donc mis :

Code:

---

valcel = Feuil1.Range("A2:A100").Value

---

Mais sa me met une erreur :

Citation:

---

Incompatibilité de tpye

---

Merci de votre aide..

Cordialement,
DexX

Si je met une " , " à la place de " : " sa marche mais que pour la cellule A1.

Si je met un numéro dans une autre cellule, sur la même ligne mais dans la colonne B, sa me met rien du tout ...