Discussion :

[RastaBomboclat]

Slt,

Je suis coincé en essayant d'insérer des données se trouvant sur ma feuille Excel, vers une base de données MySQL, via une macro.
J’ai trouvé un tuto sur le net qui fonctionne parfaitement en lui-même, mais quand j’essaie de l’adapter à mes besoins, avec mes données, ça bug.

Ci-dessous, les codes que j’ai utilisé, les erreurs générées, et mes données Excel (factices).

Dans la feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derligne As Integer
    Derligne = Range("A65000").End(xlUp).Row
    If Not Intersect(Target, Range("A2:D" & Derligne)) Is Nothing Then
        Call UpdateData(Target.Row, Target.Column)
    End If
End Sub

Dans le Module:

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
Option Explicit
 
Public oConnect As ADODB.Connection
 
Private Sub ConnectionDB()
Dim S As String
    Set oConnect = New ADODB.Connection
    S = "DRIVER={MySQL ODBC 5.1 Driver};" & _
        "SERVER=" & Sheets("config").Range("B1").Text & ";" & _
        "DATABASE=" & Sheets("config").Range("B2").Text & ";" & _
        "USER=" & Sheets("config").Range("B3").Text & ";" & _
        "PASSWORD=" & Sheets("config").Range("B4").Text & ";" & _
        "Option=3"
    oConnect.Open S
End Sub
 
Sub MySQLInsertData()
Dim Rs As ADODB.Recordset
Dim Derligne As Integer, i As Integer
Dim Requete As String
 
    Set Rs = New ADODB.Recordset
    Call ConnectionDB
    With Sheets(1)
        Derligne = .Range("A65000").End(xlUp).Row
        For i = 2 To Derligne
            Requete = "INSERT INTO employes_tbl(ID_EMP, NOM, PRENOM, ADRESSE, VILLE, PAYS, TEL, EMAIL) VALUES(" & .Cells(i, 1) & ", '" & .Cells(i, 2) & "', '" & .Cells(i, 3) & "', " & .Cells(i, 4) & "', " & _
            .Cells(i, 5) & "', " & .Cells(i, 6) & "', " & .Cells(i, 7) & ", '" & .Cells(i, 8) & ")'"
            Rs.Open Requete, oConnect, adOpenDynamic, adLockOptimistic
        Next i
    End With
    oConnect.Close
    Set Rs = Nothing
End Sub

La feuille des données de connexion:


La feuille des données à insérer:


Les messages d'erreur:



Merci d'avance pour vos contribution.