Importer fichier CSV vers MYSQL en VBA Excel

Version imprimable

16/06/2014, 15h01
6116d

Importer fichier CSV vers MYSQL en VBA Excel

Bonjour,

Je suis totalement novice en VBA donc faudra être surement patient avec moi ^^'

J'ai déjà réalisé une petite macro pour créer un fichier CSV à partir d'un fichier excel et maintenant j'aimerai importé ce fichier CSV sur ma base de donnée MYSQL dans la database "test_data" et dans ma table "test_table".

J'ai fais des recherches et j'ai trouvé qu'il fallait utiliser la commande: DoCmd.TransferDatabase
Par contre je ne comprends pas comment on l'utilise :/

Merci par avance de votre aide :)
16/06/2014, 15h24
Thiazung
Bonjour,

Si tu as une base MySQL tu peux utiliser du SQL donc utiliser cette commande
Code:

1 2 3 4 5 6 7 USE test_data LOAD DATA LOCAL INFILE 'c:\Fichier.csvr' INTO TABLE test_table FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY "\r\n" IGNORE 1 LINES
Si tu veux lancer l'import via un fichier excel c'est différent il faut ouvrir une connexion avec MySQL et exécuter le code que je t'ai fournis

T.
16/06/2014, 15h28
6116d

Justement je veux exécuter l'import via mon fichier excel grâce à une macro :)

Comment on ouvre une connexion à Mysql via la macro et d’exécuter ton code par exemple?

Bonjour,

DoCmd.TransferDatabase est une instruction ACCESS vba!
tu exporte EXCEL vers CSV puis tu veux iporter CSV dans mySql???

Code:

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
35
Sub test()
Dim Connexion_MySql As New ADODBRD
Dim Sql As String
Dim Sql2 As String
Dim R As Range
Dim L As Long
'1 - ODBC
'2 - ORACLE
'3 - ACCESS 2012
'4 - ACCESS 2000
'5 - ACCESS 97
'6 - SQL SERVER
'7 - SQL SERVER 2005 Express
'9 - SQLite
'10 - SQLite3
'11 - Mysql
Connexion_MySql.TYPEBASE = 11
Connexion_MySql.BASE = "LaposteAvance"
Connexion_MySql.Server = "localhost"
Connexion_MySql.User = "root"
Connexion_MySql.PassWord = "123456789"
Connexion_MySql.OpenConnetion
 
Sql = "INSERT INTO `codepostal` (`codePostalCP`,`Ville`) VALUES " & vbCrLf
Set R = ActiveSheet.UsedRange
For L = 2 To R.Rows.Count
If Sql2 = "" Then
 Sql2 = "('" & R(L, 1) & "','" & R(L, 1) & "')" & vbCrLf
 Else
 Sql2 = Sql2 & ",('" & R(L, 1) & "','" & R(L, 1) & "')" & vbCrLf
 End If
Next
Sql = Sql & Sql2 & ";"
Connexion_MySql.Execute Sql
End Sub

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
Private Connexion
Public TYPEBASE
Public BASE
Public Server
Public Fichier
Public User
Public PassWord
 
Private Function GenereCSTRING()
'Permet de générer le Cornec String
'1 - ODBC
'2 - ORACLE
'3 - ACCESS 2012
'4 - ACCESS 2000
'5 - ACCESS 97
'6 - SQL SERVER
'7 - SQL SERVER 2005 Express
'9 - SQLite
'10 - SQLite3
'11 - Mysql
If Trim("" & Fichier) = "" Then Fichier = BASE
 
Select Case TYPEBASE
    Case 1
        GenereCSTRING = "Provider=MSDASQL.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & BASE
    Case 2
        GenereCSTRING = "Provider=OraOLEDB.Oracle.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & BASE
 
    Case 3
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";"
 
    Case 4
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Persist Security Info=False"
    Case 5
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & Fichier
    Case 6
            GenereCSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Fichier
           ' GenereCSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Fichier & ";user=" & User & ";Passwors=" & PassWord
    Case 7
        GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & BASE & ";Data Source=" & Server
    Case 8
        GenereCSTRING = "Provider=SQLNCLI.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & BASE & ";Data Source=" & Server
    Case 9
        GenereCSTRING = "Provider=OleSQLite.SQLiteSource.3; Data Source=" & Fichier
 
        GenereCSTRING = "Driver={SQLite ODBC (UTF-8) Driver};Database=" & Fichier & ";StepAPI=;Timeout="
    Case 10
        GenereCSTRING = "Driver={SQLite3 ODBC Driver};Database=" & Fichier & ";LongNames=0;Timeout=4000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
    Case 11
        GenereCSTRING = " DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Server & ";UID=" & User & ";DATABASE=" & BASE & ";Password=" & PassWord
    Case Else
        GenereCSTRING = "PAS ASSEZ DE PARAMETRES RENSEIGNES !!!"
 
 
End Select
''MsgBox GenereCSTRING
'Response.End
End Function
 
 
Public Function OpenConnetion()
'Ouvre une connexion à  la base de données.
'Dim Fso As New Scripting.FileSystemObject
    OpenConnetion = False
    On Error Resume Next
    Dim ConnecString
 
     Dim NbErr
 
    Set Connexion = CreateObject("ADODB.Connection")
    Connexion.Open GenereCSTRING
'ConnecString
 
    If Err = 0 Then
 
        OpenConnetion = True
       Connexion.CommandTimeout = 14400
    Else
  MsgBox Err.Description
 
    End If
'    Debug.Print Err.Description
    Err.Clear
    On Error GoTo 0
End Function
 
 
Public Function CloseConnection()
'Referme la connexion
CloseConnection = False
On Error Resume Next
    Connexion.Close
    Set Connexion = Nothing
     If Err = 0 Then
        CloseConnection = True
    End If
    Err.Clear
    On Error GoTo 0
End Function
 
 
Public Function OpenRecordSet(Sql)
'Retourne un RecordeSet
On Error Resume Next
    Dim Rs
Dim NbErr
 
Err.Clear
If Connexion.State = 0 Then
    OpenConnetion
End If
'Debug.Print Sql 'Replace(Sql, "%", "*")
    Set OpenRecordSet = CreateObject("ADODB.Recordset")
 
   ' OpenRecordSet.LockType = adLockOptimistic
    ''MsgBox  adLockOptimistic & vbcrlf & Err.Description
    Debug.Print Sql
    OpenRecordSet.Open Sql, Connexion, 1, 3
 
    If Err Then
   MsgBox Err.Description
 
    NbErr = NbErr + 1
        If NbErr < 11 Then
 
            Set OpenRecordSet = Nothing
 
 
        End If
 
    End If
    Err.Clear
 
End Function
Public Function RetournConnection()
Set RetournConnection = Connexion
End Function
Public Function OpenRecordSetParametre(Sql, Param)
Dim Commande
Dim Params
Set Commande = CreateObject("ADODB.Command")
Dim MyParameter
Set MyParameter = CreateObject("ADODB.Parameter")
Set Commande.ActiveConnection = Connexion
Commande.CommandText = "select Requête2.* from Requête2;"
 Commande.CommandType = adCmdText
 
 Set MyParameter = Commande.CreateParameter("[NumJob]", adNumeric)
         MyParameter.Value = 10
Commande.Parameters.Append MyParameter
 
 
 
'aa.Parameters.Append("MyRef") = "243410M660"
Set Rs2 = Commande.Execute
 
End Function
Public Function CloseRecordSet(Rs)
On Error Resume Next
    Rs.Close
    Set CloseRecordSet = Nothing
End Function
Public Function Execute(Sql)
    Execute = False
    On Error Resume Next
    Dim NbErr
Reprise:
If Connexion.State = 0 Then
    OpenConnetion
End If
Debug.Print Sql
    Connexion.Execute Sql
    If Err = 0 Then
        Execute = True
 
 
 
 
'     Else
'    'MsgBox Err.Description
'         Err.Clear
'    NbErr = NbErr + 1
'    If NbErr < 11 Then
'
'        GoTo Reprise
'    End If
Else
    MsgBox Err.Description
    End If
 
    Err.Clear
 
End Function

17/06/2014, 09h14
6116d

Oui je créais un CSV avec ma macro Excel déjà (macro que j'ai déjà réalisée).
Ce que j'aimerai ensuite, se serait de pouvoir importer ce fichier CSV dans ma base Mysql avec ma macro déjà réalisée pour avoir qu'un seul bouton à appuyer.

Merci rdurupt pour les codes mais lorsque que je copie le premier, celui-ci ne fonctionne pas (bien sûr j'ai préalablement modifier les informations pour rentrer dans ma base). Pour le second code, je ne comprends pas à quoi il sert et où faut-il le mettre :/
17/06/2014, 09h34
Invité

1 pièce(s) jointe(s)

dans 1 module standard copy sub test
dans un module de classe copy ADODBRD (menu->insertion->module de classe ) puis renomme le
mysql ne fourni pas le driver. télécharge mysql-connector-odbc-5.1.8-win32.msi
17/06/2014, 10h32
6116d

4 pièce(s) jointe(s)

Merci de ton aide rdurupt :)

J'ai bien inséré ton premier code en supprimant le "Sub" pour l'intégrer dans ma macro:
Pièce jointe 148877

Ainsi que ton deuxième code et le driver Mysql:
Pièce jointe 148882

Par contre, quand je lance la macro j'ai ce message d'erreur lorsqu'il arrive à ton code pour Mysql:
Pièce jointe 148879

A mon avis, c'est parce qu'il faut importer le fichier csv dans Mysql en Load Data parce que j'ai le bon nombre de colonnes dans Mysql et dans mon fichier csv:
Pièce jointe 148878

Comment je peux ajouter cette option pour pouvoir l'importer?
17/06/2014, 10h51
Invité

non tu as plus de champ dans sql que dans sql2.
il faut entre les valeurs pour chaque champ dans sql je vois insert into et au moins 10 champs et dans sql2 je ne vois que 2 valeur du tableau EXCEL!
17/06/2014, 11h30
6116d

3 pièce(s) jointe(s)

Autant pour moi, je n'avais pas compris qu'il fallait aussi mettre autant de champs dans sql2 que dans sql ^^""

Tout s’exécute sans bug mais ce qui a été inséré dans ma base sql correspond à la première colonne ou la première case de chaque ligne du fichier csv c'est à dire que des "*" au lieu des cases correspondantes:

Code:
Pièce jointe 148889

Fichier CSV:
Pièce jointe 148891

Mysql:
Pièce jointe 148892

J'ai bien essayé de mettre "1,2,3,4,5..." à la place des 1 dans sql2 mais sans succès :/

r(L,1) l reprisent la ligne de ton Compteur & 1 la colonne. désolé dans mon exemple j'avais mis r(L,1) partout :rouleau:

Code:

1
2
3
4
5
6
7
8
9
For L = 2 To R.Rows.Count 
If Sql2 = "" Then
' R(L, 1) A2, A3 A4...
' R(L, 2) B2,B3 B4...
 Sql2 = "('" & R(L, 1) & "','" & R(L, 2) & "')" & vbCrLf
 Else
 Sql2 = Sql2 & ",('" & R(L, 1) & "','" & R(L, 2) & "')" & vbCrLf
 End If
Next

17/06/2014, 14h55
6116d

Merci de ton aide précieuse :)

Une dernière question, dans mon csv, j'ai des dates au format AAAA/MM/JJ. Je lance la macro, tout se passe bien sans bug.
Mais lorsque je regarder ma BDD les colonnes avec mes dates sont remplies par défaut 0000-00-00.

Pourquoi quelle raison la macro ne m'importe pas les dates comme pour les autres colonnes (int, text...)?
17/06/2014, 15h10
Invité
parce que les dates dans tous les systèmes sont au format yyyy-mm-dd c'est les paramètres régionaux qui fixe le format dd/mm/yyyy
dans ta requête tu dois fixer le bon format!
Code:

1 2 3 sql2=("'" & format(date,"yyyy-mm-dd") & "'",.... 'ou plus exactement sql2=("'" & format(r(l,1),"yyyy-mm-dd") & "'",....
enfin le r(l,X) qui corespond à ton champ
17/06/2014, 16h24
6116d

Je te remercie de ton aide !
Tout fonctionne lors de l'import :)

Une dernière petite question, si ce n'est pas indiscret, tu es développeur spécialiste en VBA?
17/06/2014, 16h32
Invité

oui et non , regardes sous la photo de Raphaël Mezrahi :bravo:
17/06/2014, 16h40
6116d

Certes mais c'était pour avoir un peu plus d'infos :P

Merci encore pour avoir prit du temps pour moi ^^