Discussion :

[elgordopresto]

Bonjour à tous,

Dans le cadre d'un projet Access je cherche à obtenir les informations suivantes :

1) Compter le nombre total de subs, functions contenus dans une base de données access à l'aide de VB.

2) Compter le nombre de functions utilisées au moins une fois dans la totalité du projet (en VB également).

Cela est-il possible ?

Un grand merci par avance pour toute aide et surtout, bravo à ce site. Le nombre de problèmes qu'il m'a permis de résoudre force tout simplement le respect.

Bien à vous.

[Jean-Philippe André]

Hello,

oui c'est possible.
Il en est question dans ce sujet :
http://www.developpez.net/forums/d67...s-base-access/

[elgordopresto]

Super !
Je teste en début de semaine prochaine et viendrai compléter cette discussion après mes tests.
Un grand merci pour votre aide.

[elgordopresto]

OK,

Après quelques tests et quelques aménagements sur les solutions soumises par jpcheck et celles trouvées sur Internet, j'ai trouvé une réponse à une partie de mon problème. Voici le code auquel j'abouti :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public Function CompterProcedure()
 
On Error Resume Next
 
Dim v As Variant
Dim oMod As Variant
Dim lnCount As Long
Dim intI As Integer
Dim lngCount As Long
Dim lngCountDecl As Long
Dim lngR As Long
Dim strProcName As String
 
For Each v In Application.VBE.VBProjects(1).VBComponents
Set oMod = Application.VBE.VBProjects(1).VBComponents(v.Name).CodeModule
 
With oMod
 
lngCount = oMod.CountOfLines
lngCountDecl = oMod.CountOfDeclarationLines
strProcName = oMod.ProcOfLine(lngCountDecl + 1, lngR)
For lngI = lngCountDecl + 1 To lngCount
If strProcName <> oMod.ProcOfLine(lngI, lngR) Then
intI = intI + 1
strProcName = oMod.ProcOfLine(lngI, lngR)
 
End If
Next lngI
End With
Next
 
MsgBox intI
 
End Function

Etonnament, lorsque je déclare oMod en tant que Module, ça plante. J'ai du le passer en Variant (ce que j'essaie d'éviter d'ordinaire) pour que le code marche...

Toute proposition d'optimisation est la bienvenue !

Merci