Sub Macro1()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
Dim valcel As String
valcel = Feuil1.Range("A2" & i).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
'Cette requête marche !
'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
With rs
.ActiveConnection = conn
.Open "select designation " _
& "from produits_test " _
& "where code_produit='" & valcel & "'"
Feuil1.Range("B2").CopyFromRecordset rs
.Close
End With
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub