[AC-2016] Access 2016 : erreur de compilation

je souhaite créer une liste de mes macros, formulaires ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function ListeMacros()
        Dim db As DAO.Database, doc As DAO.Document
 
    Set db = CurrentDb
    For Each doc In db.Containers("Scripts").Documents
        If Left(doc.Name, 1) <> "~" Then
            Debug.Print doc.Name
        End If
    Next
 
    Set db = Nothing
End Function

j'ai le message :

Erreur de compilation
Type défini par l'utilisateur non défini avec db As DAO.Database en surbriance