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 :

Erreur de compilation
Erreur de syntaxe
Et sa surligne cette ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
     .Open "select designation" _&
Peut-on m'aider s'il vous plait ?

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