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
|
strSQL = "INSERT INTO [" & Feuille & "$] " _
& "VALUES ('" & Numdt & "', " & _
"'" & refpiece & "', " & _
"'" & Prodetsec & "', " & _
"'" & Desi & "', " & _
"'" & Progconc & "', " & _
"'" & Rgdap & "', " & _
"#" & Delaidemand & "#, " & _
"#" & Delairetenu & "#, " & _
"#" & Delaiobtenu & "#, " & _
"'" & Libelledemande & "', " & _
"'" & Docjoint & "', " & _
"'" & Interlo1 & "', " & _
"'" & Tpsestim & "', " & _
"'" & Tpsrealise & "', " & _
"'" & Avancement & "', " & _
"'" & Visademande & "', " & _
"#" & Datevisademand & "#, " & _
"'" & Accordpourexec & "', " & _
"#" & Dateaccordexec & "#, " & _
"'" & Visaprog & "', " & _
"#" & Datevisaprog & "#, " & _
"#" & Datecreat & "#, " & _
"'" & Interlo2 & "')"
Cn.Execute strSQL |
Partager