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
| If Not (existe = Dir("E:\Project 1\test.csv", vbNormal)) = vbEmpty Then
Sheets(cievaluesempty).SaveAs Filename:="E:\Project 1\test.csv", FileFormat:=xlCSV, CreateBackup:=False
End If
Dim cn As ADODB.Connection
Dim Fichier As String, Feuille As String, strSQL As String
Fichier = "E:\Project 1\test.csv"
Feuille = "test"
'///mettre un for pour toutes les donnees
'Les donnees a inserer
PolicyNb = Sheets(cievalues).Cells(10, 1)
Polseq = Sheets(cievalues).Cells(10, 2)
Polissdate = Sheets(cievalues).Cells(10, 3)
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.csv)};" & "DBQ=" & Fichier & ";ReadOnly=False;"
.Open
End With
strSQL = "insert into [" & Feuille & "$] " & "Values (#" & PolicyNb & "#, " & " ' " & Polseq & "'," & Polissdate & ")"
cn.Execute strSQL
cn.Close
Set cn = Nothing |
Partager