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
|
fichier = "ooo"
NomFeuille = "ooo"
num_essai = "MAS240713"
Set Cn = New ADODB.Connection
'--- Connection ---
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
texte_SQL = "INSERT INTO [" & NomFeuille & "$]([Echantillion],[A1],[A2],[A3],[A4],[A5],[A6],[A7],[A8],[A9],[A10],[A11],[A12],[A13],[A14],[A15],[A16],[A17],[A18],[A19],[A20],[A21],[A22],[A23],[A24],[A25],[A26],[A27],[A28],[A29],[A30],[A31],[A32],[A33],[A34],[A35],[A36],[A37],[A38],[A39],[A40],[A41],[A42],[A43],[A44]) " & _
"VALUES ( " & "'" & num_essai & "', '" & _
"Essai " & "', " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null" & ", " & "Null" & ", " & "Null" & ", " & _
"Null)"
Set Rst = New ADODB.Recordset
'MsgBox texte_SQL
Set Rst = Cn.Execute(texte_SQL)
Cn.Close
Set Rst = Nothing |
Partager