Discussion :

[beaucy]

Bonjour,
Voilà, je voudrais adapter la syntaxe suivante pour pouvoir passer en paramètre le nom de la base de donnée à explorer pour récupérer le nom et le contenu de toutes les macros de la base.

J'utilise la syntaxe suivante qui me permet d'analyser la base active (celle ouverte).

Code :

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

1
2
3
For Each Mac In CurrentProject.AllMacros
    Application.SaveAsText acMacro, Mac.Name, "d:\local\detmacro.txt"
....

J'avais récupéré un source qui me permettait d'analyser une base que je sélectionne et stocke dans une variable w_base.

Comment adapter ma syntaxe pour pointer sur w_base au lieu de currentproject?

merci

[Tofalu]

Je pense qu'il serait préférable d'utiliser DAO et ses objets documents non ?

Il doit y avoir des exemples sur le forum

[Tofalu]

Aller, un exemple rapide :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub listerForms()
Dim oDb As DAO.Database
Dim oDoc As DAO.Document
Dim oCtn As DAO.Container
 
 
Set oDb = OpenDatabase("D:\BdTest.accdb")
Set oCtn = oDb.Containers("Forms")
For Each oDoc In oCtn.Documents
    MsgBox oDoc.Name
Next oDoc
 
End Sub

[beaucy]

bjr,
j'utilise également les containers pour récupérer les tables,formulaires... mais je veux aller plus loin en récupérant par exemple pour les macros la liste des actions contenues (requètes généralement". L'objectif est de faire une documentation aussi complète que possible de ma base en étant capable de savoir où sont utilisées mes tables (requètes, formulaires,macros), me requètes... d'où l'utilisation d'une base que j'avais récupérée sur le forum utilisant currentproject. Mais current project ne correspond qu'à la base ouverte ce qui m'obligerait à dupliquer tout le code d'analyse dans chaque base de donnée alors que ce que je veux faire, c'est créer une base Doc.mdb qui me permettra de créer toutes mes documentations pour toutes mes bases de données.
merci en tout cas d'avoir regardé mon pbme et, si tu eux m'aiguiller un peu plus,je suis preneur.
Je continue bien entendu de mon côté mais accces est tellement "large"!
beaucy