Discussion :

[Grel Lionel]

Pièce jointe 596988

Bonjour, je n'arrive pas à exporter les données de ma feuille excel vers une BDD wampserver en VBA. Pouvez-vous m'aider svp

[Gorzyne]

de but en blanc je sais pas trop
il ,faudrait que tu nous en dises plus sur le type de message d'erreur que tu reçois
est ce que c'est au niveau de la connexion à la base, de la requête en écriture ?
est ce que peut être la macro semble s'executer correctement mais rien ne se produit côté serveur ?

dis nous...
Gorzyne

[Thumb down]

Bonsoir,
attention aux information confidenciels!

je suis parti du postula que [Note1], [Note2], [Moyenne] étaient des numériques et pas texte!

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
Sub ExportMysql()
Dim NbLignes As Long, rowtable As Long
Dim Maconnexion As New ADODB.Connection  'pour contenir la chaîne de connexion
Dim strSQL As String 'pour contenir la requête SQL
Dim strSQLValue As String 'pour contenir la requête SQL
const SERVER = "127.0.0.1",DATABASE = "note",USER = "root",Password = "",Port = "3306"
 
Maconnexion.Open "Driver={MySQL ODBC 8.0 Unicode Driver};Server=" & Server & ";Port=" & Port & ";Database=" & DataBase & ";User=" & User & ";Password=" & Password & ";"
 
 strSQL = "INSERT INTO [note].[relever]([Nom], [Note1], [Note2], [Moyenne]) VALUES "
With Worksheets("Feuil1")  
    NbLignes =.UsedRange.Rows.Count  'Recuperer le nombre de ligne du tableau
    For rowtable = 2 To NbLignes
        'faire une boucle pour chaque ligne
        If strSQLValue <> "" Then strSQLValue = strSQLValue & ","
        strSQLValue = strSQLValue & "('" & Replace(.Cells(rowtable, 1).Value,"'","''") & "', " & _
        Replace(.Cells(rowtable, 2).Value, ",", ".") & "," & _
        Replace(.Cells(rowtable, 3).Value, ",", ".") & ", " & _
        Replace(.Cells(rowtable, 4).Value, ",", ".") & ")" & vbCrLf
        'Recuperer le contenu de haque colonne pour la mettre dans l'instruction VALUES de la requête
    Next rowtable
End With
Maconnexion.Execute strSQL & strSQLValue
 
 
MsgBox "Succés de l'insertion " & Chr(10) & _
(rowtable - 2) & " Enregistement(s) ajouté(s)", vbInformation, _
"Verification de l'entrée des données"
 
End Sub

[Gorzyne]

Oui exact données personnelles dans ton fichier pas très RGPD compatible je sais pas quelle législation s'applique sur le site