Windows= 64 bit
La connection avecMySQL for Excel fonctionne
J'utilise ODBC 8.0, version 64 bit. (J'ai tenté avec la 32 bit, mais il ne me permet pas d'ajouter mon DSN
J'ai aussi réinstallé excel
Je n'ai pas de problème avec la library
Je veux créer un macro pour envoyer des données dans MySQL en un clic
Sub ExportMysql()
Dim MaConnexion As ADODB.Connection
Dim MonRecord As ADODB.Recordset
Dim Nblignes As Integer
Dim rowtable As Integer
Dim strSQL As String
Set MaConnexion = New ADODB.Connection
Set MonRecord = New ADODB.Recordset
MaConnexion.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
"SERVER=127.0.0.1;" & _
"DATABASE=approvisionnement;" & _
"USER=root;" & _
"PASSWORD=julie;" & _
"Option=3"
Nblignes = Worksheets(Feuil1).UsedRange.Rows.Count
With Worksheets(Feuil1)
For rowtable = 2 To Nblignes
strSQL = "INSERT INTO `approvisionnement`.`ligne2` (`numitem`,`dateheure`,`epaiss`,`largeur`,`longueur`,`qtedem`) " & _
"VALUES ('" & .Cells(rowtable, 1).Value & "', '" & _
.Cells(rowtable, 2).Value & "', '" & _
.Cells(rowtable, 3).Value & "', '" & _
.Cells(rowtable, 4).Value & "', '" & _
.Cells(rowtable, 5).Value & "', '" & _
.Cells(rowtable, 6).Value & "')"
MonRecord.Open strSQL, MaConnexion
Next rowtable
End With
L'erreur se trouve dans la partie en gras
Merci beaucoup!!