salut

c'est bizarre vraiment , pendant des semaines ce code marche très bien
ce matin il ne marche plus message d'erreur est : objet requis 424
malgré q'il lit qu' il la trouve dans le champs d' accès ( premier ligne)

voila un bref de ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
con.ConnectionString = "Dbq= " & chemin & base & ".accdb;" & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
con.Open
Set rs.ActiveConnection = con
rs.Open " Select *  from unite ;"
While rs.EOF = False
frmpanne.Frame1.boxsite.AddItem rs.Fields("site")
'ici l'erreur qunat il devaint jaune  , et je déplca la souris  je lit la 1ére ligne de mon champs site 
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
merci d'avance