Bonjour, j'essaie de faire une macro qui va chercher des informations dans une base de données Sybase. La requête que j'ai créé fonctionne lorsque je l'exécute dans la base de données, mais pas dans excel.

voici la fonction:
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
Sub getInformation(con As Connection)
Dim rec As Recordset
Dim sql As String
 
sql = "SELECT "
sql = sql & "ifdcls.ifdcls_ptr_id As Code, "
sql = sql & "ifdcls.ifdcls_dsc_fr As Description, "
sql = sql & "ifmcls.ifmcls_ptr_id as Cls "
sql = sql & "FROM ifdcls, ifmcls "
sql = sql & "WHERE ((ifdcls.ifdcls_ptr_id=ifmcls.ifmcls_ptr_chld) AND "
sql = sql & "(ifmcls.ifmcls_fk_ptr_id=105430) AND "
sql = sql & "(ifmcls.ifmcls_typ_cls = 'EQTX') AND "
sql = sql & "(ifmcls.ifmcls_ptr_id = (SELECT max(Verif.ifmcls_ptr_id) as id "
sql = sql & "FROM ifmcls as Verif "
sql = sql & "where Verif.ifmcls_fk_ptr_id = ifmcls.ifmcls_fk_ptr_id))) "
 
Set rec = con.OpenRecordset(sql, dbOpenDynamic)
wshPTF.Select
wshPTF.Range("Start").CopyFromRecordset rec
rec.Close
End Sub
Est-ce que quelqu'un pourrait me dire ce qu'il y a d'incorect dans la requête?

Merci!