Bonjour ,
je me traine une erreur 424 que je n'arrive pas a résoudre.
Mon code fait appel a un base ouverte et récupére des valeurs dans excel.
seulement currentDb n'a pas l'air d'être reconnu..
est ce que quelqu'un serait me résoudre ce soucis?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub test()
 
On Error GoTo errorHandler
 
    '
    'La procédure
    '
 
    'Permet de sortir de la procédure et évite la gestion d'erreur (errorHandler), si la macro
    's'est déroulée sans encombre.
 
Dim oDb As DAO.Database
Dim LngNouvelleValeur As Long
Dim StrSQL As String
Dim oRst As DAO.Recordset
LngNouvelleValeur = 0
 
Set oDb = CurrentDb 'DBEngine.Workspaces(0).Databases(0)
StrSQL = "SELECT * FROM algorithme_mises, algorithme_enchere GROUP BY algorithme_mises.nid HAVING (((algorithme_mises.nid)>100))"
 
Set oRst = oDb.OpenRecordset(StrSQL, dbOpenSnapshot)
 
While Not oRst.EOF
LngNouvelleValeur = oRst.Fields("SommeDeMontant").Value + LngNouvelleValeur
oRst.MoveNext
Wend
InputBox (LngNouvelleValeur)
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
Exit Sub
 
errorHandler:
    'indique le numéro et la description de l'erreur survenue
    MsgBox Err.Number & vbLf & Err.Description
 
End Sub
Bien a vous,

will