[VBA] Agir sur le VBAProject [FAQ]

[preverse]

Bonjour,

Je cherche à savoir s'il est possible dans du code VBA d'aller lire les objets du VBA.

En l'occurence, le but serait de parcourir tous les objets (feuilles, modules, ...) de mon projet pour générer de la doc à partir des commentaires de mon code.

Est-ce quelqu'un a une idée ? Merci

P.R

[SilkyRoad]

bonjour

j'espere que tu pourras adapter cette macro à ton projet

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub listeMacros()
'necessite d'activer la reference Visual basic For Application Extensibility 5.3
Dim i As Integer, Ajout As Integer
Dim Msg As String
Dim VBCmp As VBComponent
Dim x As Integer
 
Ajout = 1
 
For Each VBCmp In ThisWorkbook.VBProject.VBComponents
    Msg = VBCmp.Name
        With Cells(Ajout, 1)
        .Interior.ColorIndex = 6
        .Value = Msg
        End With
 
    x = ThisWorkbook.VBProject.VBComponents(Msg).codemodule.CountOfLines
        For i = 1 To x
        Cells(Ajout + i, 1) = ThisWorkbook.VBProject.VBComponents(Msg).codemodule.Lines(i, 1)
        Next
    Ajout = Ajout + x + 2
Next VBCmp
 
End Sub

bon apres midi
michel

[preverse]

Merci beaucoup pour cette réponse.

Quand je teste ThisWorkbook.VBProject, j'ai une erreur comme quoi l'accès par programme au projet Visual Basic n'est pas fiable.

C'est une erreur qui vous parle ?

Sachant que je n'ai pas trouvé dans les références de "Visual basic For Application Extensibility 5.3", j'ai "Visual basic For Application". Ce n'est pas la même chose ?

P.R

[preverse]

J'ai trouvé la librairie :
"Microsoft Visual basic For Application Extensibility 5.3"
Mais ça ne change pas mon problème

[preverse]

J'ai trouvé la réponse sur le net, la voici :
Il faut aller dans :
outils
macro
securité
onglet sources fiables
cocher la case " faire confiance au projet visual basic"

Merci de votre aide.

P.R

[papyjac]

Oui, et pour la version 2007, il faut :
1. Déclarer un emplacement approuvé
2. cocher Accès approuvé au modèle d'objet du projet VBA