Exploration d'une Macro avec VBA

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:

---

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

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:

---

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+

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:

---

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

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+

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.:cry:

A+

Citation:

---

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:

---

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+

Aussi j'utilise cela http://www.dpriver.com/pp/sqlformat.htm pour rendre le SQL plus lisible pour un humain.

Très pratique quand tu tombes sur une page complète de SQL avec plein de jointures et que l'éditeur de requête se met aux abonnées absents. Aussi utile si tu copies ton SQL dans un Word pour faire de la doc.

A+