Forums - xlExe.com - gse-pro.com

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