Set Cn3 = New ADODB.Connection
With Cn3
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& PathImportCata2 & ";Extended Properties=""Excel 12.0;HDR=Yes;"""
.Open
End With
'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn3
Cd.CommandText = "SELECT * FROM [`" & TabSource & "` & A1:A1]"
Cn.Execute("select `REQ$`.`" & ColImport & "` FROM `" & PathImportCata & "`.`" & TabSource & "` `REQ$`")
Set Rst4 = New ADODB.Recordset
Rst4.Open Cd, , adOpenKeyset, adLockOptimistic
Rst4(0).Value = TableauTime
Rst4.Update
Cn3.Close
Set Cn3 = Nothing
Set Cd = Nothing
Set Rst4 = Nothing