Discussion :

[tototiti2008]

Bonjour,

Je souhaitait développer un petit formulaire pour parcourir mes macros et lire leurs propriétés (c'est à dire la liste des actions des macros et leurs paramètres)

J'ai essayé plusieurs choses sans résultat.
Avec le code suivant, j'obtient la liste des macros mais je suis incapable de lire les propriétés...

Code :

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

1
2
3
4
5
6
7
Sub ListMacros()
Dim Proj, Mac As AccessObject
    Set Proj = Application.CurrentProject
    For Each Mac In Proj.AllMacros
        MsgBox Mac.Name
    Next Mac
End Sub

Impossible de lire les "Properties" de ces AccessObject (à part le nom), et d'ailleurs je n'en ai trouvé aucune qui corresponde au nom des actions ou à leurs paramètres.

J'ai essayé aussi en passant par des objets Script (je ne sais plus trop comment, je n'ai pas le code sous la main) mais sans plus de résultat.

Quelqu'un aurait déjà réalisé ça ?

Merci d'avance

[LedZeppII]

Bonjour,

Il n'y a rien dans Access pour explorer le contenu des macros.

Regarde quand même cette discussion : lister le contenu de la macro autokeys

A+

[tototiti2008]

Bonjour à tous,

Juste trop fort LedZeppII, merci, je viens de tester c'est nickel.
J'avais cherché dans tous les sens mais je dois avouer que je ne pensais pas que tous les objets seraient "lisibles" en VBA sauf les macros... encore une "cohérence" de nos amis de Microsoft...

j'étais parti sur les objets CurrentDb.Containers("Scripts").Documents
je trouve bien le nom des macros et là dedans il y a plein de "properties" (quand je dis plein, c'est en cascade... à l'infini ?) mais visiblement aucune qui contenait les infos que je voulais.

Merci encore

[tototiti2008]

Bonjour à tous,

Avant tout je vous souhaite de trés bonne fêtes de fin d'année.

Bon, je retombe sur une difficulté analogue à la lecture des propriétés des macros : si un formulaire n'est pas ouvert, impossible de lire ses propriétés ou celles de ses contrôles.

Il n'y aurait pas un équivalent du "Wizhook.Openscript" qui ne pointerait pas sur les macros mais sur les formulaires ?

Bon, il me restera toujours la possibilité d'ouvrir chaque formulaire en mode création, ou de l'exporter avec SaveText, mais au cas où quelqu'un connait un méthode plus simple...

Merci d'avance

[tototiti2008]

Bonjour et trés bonne année,

Bon je vois que ça n'inspire personne (faut dire que ce code semble déjà venir de loin...), je passerais par des exports avec SaveText.

Je vous ferais part du résultat

Merci encore

[LedZeppII]

Bonjour et bonne année à toi.

J'ai regardé dans le code des assistants, et plus particulièrement dans celui servant à documenter une base de données (WZTOOL80.MDE).
C'est là que j'avais commencé à regarder pour les macros.
Pour les formulaires, le code ouvre chaque formulaire en mode création

Code Extrait de Private Sub DocFrmOrRpt(stObjName As String, objType As Integer) :

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

1
2
3
4
5
6
7
8
9
    If (objType = acForm) Then
        If (Not fDontCloseObj) Then DoCmd.OpenForm stObjName, acDesign, , , , acHidden
        Set fro = Forms(stObjName)
    Else
        If (Not fDontCloseObj) Then
            DoCmd.OpenReport stObjName, acDesign
        End If
        Set fro = Reports(stObjName)
    End If

A+

[tototiti2008]

Bonjour LedZeppII,

Toujours aussi efficace
Merci beaucoup.

Je ne manquerais pas d'aller voir dans cette page le détail des "codes des assistants".

Sinon, au passage, tu ne connaitrais pas une méthode d'ouverture d'une Macro en mode création ?

Je sais, je commence à demander beaucoup...

[LedZeppII]

Bonjour,

Là je suis un peu sec.

Je n'ai trouvé que ça :

Code :

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

1
2
3
4
DoCmd.SelectObject acMacro, "Macro1", True
SendKeys "+{F10}"
SendKeys "{DOWN}{DOWN}"
SendKeys "{ENTER}"

Ce qui se traduit par :
Sélectionner la macro "Marco1" dans la fenêtre de base de données.
Invoquer le menu contextuel.
Sélectionner le deuxième élément du menu (Mode création).
Valider par <Entrée>

A+

[tototiti2008]

Bonjour à tous, spécialement à LedZeppII

Merci pour les Sendeys, si tu vas voir le lien tu verras que j'ai essayé avec une autre méthode.

Juste pour vous revenir sur le résultat de votre aide :

http://www.developpez.net/forums/d87...e/#post4967130

Et Merci encore

à bientôt