Sub ListeRequetes()
   Dim DaBase As DAO.Database
   Dim ReqD As DAO.QueryDef
 
   Set DaBase = CurrentDb
   For Each ReqD In DaBase.QueryDefs
     Debug.Print ReqD.Name
   Next
 
   Set DaBase = Nothing
End Sub

List of access database queries

Pour tester, ouvre la fenêtre de Debug (CTRL G), et tapes-y 'ListeRequetes' et appuye sur la touche [Entrée].

[vba-access] liste des requêtes d'une base access

list

Visual Basic