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
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
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
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
Oui exact données personnelles dans ton fichier pas très RGPD compatible je sais pas quelle législation s'applique sur le site
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager