LISTER TOUS LES MODULES ET LES PROCÉDURES DE CHAQUE MODULE (VBA)
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
2 déc. 2005 à 16:11
hebus16 Messages postés 80 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 2 octobre 2009 - 14 août 2009 à 09:45
hebus16 Messages postés 80 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 2 octobre 2009 - 14 août 2009 à 09:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34877-lister-tous-les-modules-et-les-procedures-de-chaque-module-vba
https://codes-sources.commentcamarche.net/source/34877-lister-tous-les-modules-et-les-procedures-de-chaque-module-vba
14 août 2009 à 09:45
Application.Modules.Count renvoie le nombre de modules OUVERTS de l'application étudiée.
Or si par malheur vous avez fermé vos modules avant de sauvegardé .. il vous renverra automatiquement 0 ^^
C'est une information à ne pas oublier
2 févr. 2007 à 13:24
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/8d9e267d8b8d5806/929ef81fa5bf1a37%23929ef81fa5bf1a37
Salut.
15 mai 2006 à 21:02
Est-ce que tu peux m'eclairer sur la necesite de :
DoCmd.OpenModule SBCode.SBModule(i).Nom
Ne suffit il pas d'appeler le module par
Module(Nom)
Quel est l'interet de
ReDim Preserve SBCode.SBModule(i).SBProcedure(ProcNbre)
puisque de toute facon ProcNbre est tjs a 0
Dans VBA-Excel, il ne reconnait ni "DoCmd", ni "vbext_pk_Proc".
Autre probleme, et de taille, "Application.Modules.Count" renvoi toujours 0 ! Quel que soit le nb de modules.
Y'a-t-il une DLL a charger ?
3 déc. 2005 à 10:07
http://patrice.dargenton.free.fr/CodesSources/DBComp.vbp.html#115
2 déc. 2005 à 18:28
ne pas oublier un petit test
If Application.Modules.Count > 0 Then
et tout devrai rentrer dans l'ordre, n'opérant que s'il y a de la matière première
2 déc. 2005 à 18:13
Faire :
ReDim SBCode.SBModule(Application.Modules.Count-1)
Car Count renvoi le nombre d'element or le tableau commence a zero !
@+
2 déc. 2005 à 16:11
UBound(SBCode.SBModule) - 1
si tu as cela, c'est que ton tableau est mal dimensionné, car Ubound renvoie l'indice du dernier element du tableau, et non pas le nombre d'element.
fais plutot :
ReDim SBCode.SBModule(Application.Modules.Count)
et dans tes boucles For :
UBound(SBCode.SBModule)