Dim Z As String
Z = "INSERT INTO toppdm.object (ID_USER_CREATE, CREATION_DATE, TYPE, FILENAME, DESCRIPTION, " _
& "ID_ENTREPRISE, FILELINKED, ID_OBJECT_CATEGORY, ORIGINAL_FILENAME, ID_COMPANY, LINK_TYPE) " _
& "VALUES (1661, to_date('29/05/2015','DD/MM/YY'),2, '" & chemin & "','" & nom_fichier _
& "',1,0,9,'" & chemin & "',1,3"
On Error Resume Next
Set rsRecords = conn.Execute(Z)
If Err Then MsgBox "Conn.Execute( " & vbLf & Z & vbLf & ") ==> Erreur " & Err.Number & vbLf _
& Err.Description, vbCritical, "NomDeLaProcédure"