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.

[RastaBomboclat]

Je viens avec le fichier excel du travaille que je fais, pour ce qui voudront le voir.


Merci d'avance.

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Requete = "INSERT INTO employes_tbl(ID_EMP, NOM, PRENOM, ADRESSE, VILLE, PAYS, TEL, EMAIL) VALUES "
SqlValue=""
For i = 2 To Derligne
        if SqlValue <>"" then SqlValue=SqlValue & ","
         SqlValue=SqlValue & "   (" & .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
oConnect.execute Requete & SqlValue

Attention à la syntaxe.

"values (12345,'Dysorthographie','Robert','9 rue','Paris',FR',6938456,'Dysorthographie@developpez.com'),(12346,'Etc...',"

[RastaBomboclat]

Merci,

Je vais la tester et reviens pour dire comment ça marche.

[RastaBomboclat]

Bonjour Dysorthographie ,

Après teste, je reçois le message d'erreur suivant:

[mercatog]

Bonjour

As-tu vérifié juste avant la ligne erreur le contenu de Requete & SqlValue à l'aide de Debug.Print par exemple?

[RastaBomboclat]

Bonjour

As-tu vérifié juste avant la ligne erreur le contenu de Requete & SqlValue à l'aide de Debug.Print par exemple?

Oui, je l’ai fait, merci.

Cela m’a permis de voir les éventuelles erreur et variantes non déclarées, vu que je travaille en "Option Explicit". Tu verras que j’ai en commentaire mon code avant de copier celui de Dysorthographie. J’ai déclaré en Variant le "SqlValue" pour être sûr qu’il passe et on cherchera plus tard son type exacte.
Si tu as décelé quelque chose, pourrais-tu s’il te plait me le montrer ?

[mercatog]

Apparemment le champs Téléphone n'est pas numérique mais du texte. Doit être entouré par des '

Aussi il faudra voir l'éventualité qu'une information de type texte qui peut contenir une apostrophe.

Code :

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

1
2
SqlValue = SqlValue & "(" & .Cells(i, 1) & ",'" & .Cells(i, 2) & "','" & .Cells(i, 3) & "','" & .Cells(i, 4) & "','" & _
                   .Cells(i, 5) & "','" & .Cells(i, 6) & "','" & .Cells(i, 7) & "','" & .Cells(i, 8) & "')"

[Invité]

oui attention aux apostrophes!

txt=replace(L'apostrophe","'","''")

[RastaBomboclat]

oui attention aux apostrophes!

txt=replace(L'apostrophe","'","''")

Bien noté Dysorthographie.
Je vais m'y exercer