Discussion :

[JOHN14]

Bonjour à tous.

J'ai une macro qui a plusieurs dizaines de lignes d'action et je voudrais pouvoir les lister ainsi que chacune des propriétés dans la fenêtre d'exécution.

Code :

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

1
2
3
4
5
6
7
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
 
    For Each obj In dbs.AllMacros
            Debug.Print obj.XXX     ' Quelque chose.
        End If
    Next obj

Mais le problème est qu'il n'y a pas grand chose à lister !

Quelqu'un connait-il un moyen d'atteindre les infos que je veux ?

Merci

[marot_r]

La seule solution que j'ai trouvé pour explorer des macros avec VBA c'est de les exporter sous forme de fichier texte puis de lire ce fichier texte avec du code VBA.

Ici un exemple de code qui fait l'export :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ExporterMacros() 
    Dim dbs As CurrentProject 
    Dim obj As Object 
 
    Set dbs = Application.CurrentProject 
    For Each obj In dbs.AllMacros 
        SaveAsText acMacro, obj.Name, "C:\temp\" & obj.Name & ".txt" 
    Next obj 
 
    set obj=nothing
    set dbs=nothing
 
End Sub

Inspiré de ici :

http://www.ozgrid.com/forum/showthread.php?t=69335

A+

[JOHN14]

Bonjour à tous.
Et, merci pour cette réponse.

J'ai trouver un autre moyen :

1:Je convertis ma macro en code VBA.

2:J'imprime ou je colle le code de ma macro.

Voilà un échantillon de ce que ça donne :

Code :

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

1
2
3
4
    ' Récupération des horaires clients complétés par les utilisateurs
    DoCmd.RunMacro "4-1-Horaire Clients", , ""
    ' Création de la ligne Adresse de facturation 01
    DoCmd.OpenQuery "Sélection Adresse Facturation 01 (BPADDRESS)", acViewNormal, acEdit

Cdt

[marot_r]

La question est : "Pourquoi ne pas utiliser du VBA directement ?"

Personnellement c'est généralement la 1ère chose que je fais quand je reprend une application, je converti toutes les macros en code VBA.

À part pour cretaines oppérations particulières où on est obligé d'utiliser les macros, je trouve VBA bien plus facile à vivre, surtout quand il faut faire du débuggage.

A+

[JOHN14]

C'est certain.

L'ennui c'est que je travaille avec des collaborateurs qui eux ne maîtrisent pas le VBA.

Je suis contraint de faire avec et de reprendre les longues macros et d'éplucher les requêtes une à une.

A+

[marot_r]

L'ennui c'est que je travaille avec des collaborateurs qui eux ne maîtrisent pas le VBA.

Mes condoléances mais peut-être qu'une petite formation serait possible afin de les initier aux merveilles de la programmation :-).

Pour l'analyse des requêtes, voici ce que j'utilise aussi :

Code sql :

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

1
2
3
4
SELECT MSysObjects.Name, MSysObjects.Type, Switch([Attribute]=0,"Début requête",[Attribute]=1,"Table destinatrice" & Chr(13) & Chr(10) & "[Name1]=Nom Table",[Attribute]=5,"Table source" & Chr(13) & Chr(10) & "[Name1]=Nom Table",[Attribute]=6,"Champ" & Chr(13) & Chr(10) & "[Name1]=Alias",[Attribute]=7,"Jointure",[Attribute]=8,"Critère",[Attribute]=11,"Tri",[Attribute]=255,"Fin requête") AS LibelleAttribut, MSysQueries.*
FROM MSysQueries INNER JOIN MSysObjects ON MSysQueries.ObjectId = MSysObjects.Id
WHERE (((MSysObjects.Type)=5))
ORDER BY MSysObjects.Name, MSysQueries.Attribute;

C'est une requête qui te permets de voir les requêtes ... sous forme de requête :-). C'est assez pratique quand tu veux savoir quelle requête manipule une table donnée ou utilise un champ particulier.

Ce n'est pas toujours super lisible mais on peut y faire des recherches textuelles.

A+