Sauvegarde de données Excel vers BDD Access

C'est certain que la 2e chaîne est mal écrite.
De plus, puisqu'il s'agit de date dans la 2e, j'irais plutôt ainsi, si ce sont de vraies dates dans les 2 cas (Excel et Access)

Code:

---

sSQLSting = "SELECT pk_princi From [tb_principale] WHERE CLng([date princi]) = " & CLng(Sheets("Malcôte").Range("W" & i).Value)

---

Ne pas oublier de mettre des crochets si les noms de tables ou champs contiennent des espaces.

@Mr Poulpe

J'ai testé et effectivement si je lance 2x de suite l'exécution de la requête, il crie!

J'avais étudié cette piste, en faisant mrs.delete ou mrs.close entre chaque exécution mais rien ne semble fonctionner! Comment faire pour "nettoyer" le recordset?

@parmi

Oui effectivement, à force de les modifier j'ai écris nimporte quoi, mais si je fais par exemple un simple : "SELECT * FROM [tb_principale]" j'ai tout de même le problème qui s'affiche!

Essaie peut être tout de même d'insérer un mrs.close après une requête de type "SELECT" (une fois que tu as récupéré ce que tu voulais de ton recordset). Je crois qu'après un "INSERT", on en a rien à faire mais pas après un "SELECT".

C'est peut être pas le seul problème mais je pense qu'il en fait partie.

Poulpe

Il faudrait voir où en est rendu ton code.
Il y a peut-être encore quelques erreurs d'écriture...

Le Recordset n'a pas besoin d'être fermé à chaque utilisation dans la même procédure, en principe.
Si tu lui alloues une nouvelle requête, c'est cette dernière qui sera exécutée.
Par contre, en fin de procédure, il est préférable de le fermer (MonRs.Close) pour libérer la mémoire en plus de Set MonRs = Nothing
Même chose pour la connexion.

Tu peux peut être également tenter de complètement désinitialiser le mrs avec un Set mrs = nothing avant de le réutiliser... C'est probablement pas propre mais ça vaut le coup d'être tenté je pense

Bonjour,
je considère que date_princi est bien un champ au format date!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub test()   sconnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\RDurupt\Desktop\BD_LACHATSA.accdb;Persist Security Info=False;" Set Conn = CreateObject("ADODB.Connection") Conn.Open sconnect Sql = "SELECT tb_principale.* FROM tb_principale WHERE tb_principale.site_princi='Malcôte';" Set rs = CreateObject("ADODB.Recordset") rs.Open Sql, Conn, 1, 3 DerL = Sheets("Malcôte").Range("W" & Cells.Rows.Count).End(xlUp).Row For i = 2 To DerL rs.Filter = "[date_princi]=#" & Format(Sheets("Malcôte").Range("W" & i), "yyyy-mm-dd") & "#" If rs.EOF = True Then rs.AddNew rs!date_princi = Format(Sheets("Malcôte").Range("W" & i), "yyyy-mm-dd") rs!remarque_princi = Sheets("Malcôte").Range("U" & i).Value rs!visa_princi = Sheets("Malcôte").Range("V" & i).Value rs!site_princi = "Malcôte" rs.Update End If Next rs.Close Set rs = Nothing End Sub

---