Discussion :

[MDuf74]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marot_r]

bonjour.

Je pense que c'est DAO.Document le problème.

A+