Export Excel to MYSQL

Bonjour,

j'ai un petit bout de code avec une macro qui me permet d'insérer 6 collones de mon tableau dans ma base de donner MYSQL. jusqu'ici tout va bien...
j'aimerai pouvoir le modifier pour pas qu'il est de doublon ainsi que d'y rajouter un update par la meme occasion si entre temp il y a eu des modification.

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=bd_cmd_cl_hs;" & _
"USER=root;" & _
"PASSWORD=;"

NbLignes = Worksheets("CMD").UsedRange.Rows.Count

With Worksheets("CMD")
        For rowtable = 7 To NbLignes

        strSQL = "INSERT INTO`bd_cmd_cl_hs`.`client`(`N°CMD`, `Contremarque`, `Date_Commande`, `Prochaine_Etape`, `Livraison_Mag`, `Livraison_Fab`) " & _
        "VALUES ('" & .Cells(rowtable, 2).Value & "', '" & _
        .Cells(rowtable, 3).Value & "', '" & _
        .Cells(rowtable, 4).Value & "', '" & _
        .Cells(rowtable, 5).Value & "', '" & _
        .Cells(rowtable, 6).Value & "', '" & _
        .Cells(rowtable, 7).Value & "')"

        MonRecord.Open strSQL, MaConnexion

    Next rowtable
End With

MsgBox "Succés de l'insertion " & Chr(10) & _
(rowtable - 2) & " Enregistrement(s) ajouté(s)", vbInformation, _
"Vérification de l'entrée des données"

End Sub

merci de votre aide :)

Bonjour,

personne peux m'aidé ?

merci

Bonjour Rocca66,

Votre demande va au delà d'Excel puisqu'il concerne MySQL ...

Et peut voir personne ne l'utilise ici, Il faudrait allez plutôt sur des forum spécialisés

A+