Discussion :

[Daejung]

Bonjour,

Après avoir activé la référence Microsoft Visual Basic for Applications Extensibility 5.3. j'ai voulu testé le code trouvé dans http://silkyroad.developpez.com/VBA/VisualBasicEditor/ pour lister les composants d'un classeur :

Code :

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

1
2
3
4
5
6
7
Sub boucleVBComponents_V01()
    Dim i As Integer
 
    For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count
        Debug.Print ActiveWorkbook.VBProject.VBComponents(i).Name
    Next
End Sub

mais quand je teste cette procédure j'ai un message d'erreur 1004 sur la ligne "for i)=...." :

La méthode 'VBproject' de l'objet '_Workbook' a échoué

D'où peut venir l'erreur?

merci

[Invité]

Bonjour,

Quelle est votre version d'Office.

Avec Office 2000 j'ai simplement la ligne :

Microsoft Visual Basic for Applications

qui est cochée et cela fonctionne.

[Daejung]

Bonjour,

C'est Excel 2003

[Didier Gonard]

Bonjour,

2 pistes :

1) as-tu bien tout lu ?

La majeur partie des procédures utilisées nécessite d'activer la référence Microsoft Visual Basic for Applications Extensibility 5.3.

Dans l'éditeur de macros (Alt+F11):
Menu Outils
Références
Cochez la ligne "Microsoft Visual Basic for Applications Extensibility 5.3"
Cliquez sur "OK" pour valider.

2) dans Excel : Outils, Macro, sécurité, onglet Editeurs approuvés, cocher "faire condfiance au projet vb"

cordialement,

Didier

[Daejung]

J'avais bien lu le point 1 et ajouté cette référence comme précisé dans mon post mais je n'ai pas vu le point 2
En cochant ça marche, mais alors si mon classeur est ouvert sur un autre poste, les procédures vont-elles fonctionner?

Merci

[Invité]

Non si :

-la référence n'a pas été cochée.
C'est faisable par Macro, mais attention en fonction de la version comme on l'a vu avec Office 2000, le titre peut être différent, est-ce que le nom du fichier est le même ?

-non si les paramètres d'acceptation des macros n'ont pas été modifiés.

[SilkyRoad]

bonsoir

La procédure que tu veux utiliser liste uniquement les composants.

Pour lister le nom des procédures (comme indiqué dans le titre de la discussion) :

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
'Nécessite d'activer la référence
    '"Visual basic For Application Extensibility 5.3"
Dim Ajout As Integer
Dim VBCmp As VBComponent
Dim cdMod As CodeModule
Dim Wb As Workbook
Dim Debut As Long
 
'Indiquez le nom du classeur ouvert
'Set Wb = ThisWorkbook
Set Wb = Workbooks("Classeur1.xls")
Ajout = 1
 
For Each VBCmp In Wb.VBProject.VBComponents
    Set cdMod = VBCmp.CodeModule
 
    With cdMod
        Debut = .CountOfDeclarationLines + 1
        Do Until Debut >= .CountOfLines
            Debug.Print .ProcOfLine(Debut, vbext_pk_Proc)
            Debut = Debut + _
                .ProcCountLines(.ProcOfLine(Debut, _
                vbext_pk_Proc), vbext_pk_Proc)
            Ajout = Ajout + 1
        Loop
    End With
 
Next VBCmp

bonne soirée
michel

[Daejung]

Merci
L'idéal serait d'avoir à la fois le nom du module et celui des procédures.
Par exemple dans une feuille excel 1 colonne pour le nom et 1 colonne pour la procédure (ca je sais le faire lol maintenant que tu m'as montré la piste)

Y-a-t-il un moyen de connaître la date de dernière modif d'un module?

[SilkyRoad]

rebonsoir

L'idéal serait d'avoir à la fois le nom du module et celui des procédures.

Utilise

Code :

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

VBCmp.Name

pour récupérer le nom du module


bonne soirée
michel

[Daejung]

oui je l'avais fait avant de te lire, merci

et j'ai copié le tout dans une feuille excel que j'ai triée sur le module

Merci encore

[Daejung]

Comment pourrais-je ajouter dans une 3ème colonne la nature de la procédure? Sub ou Function?

Merci

[SilkyRoad]

bonsoir

Tu peux récupérer l'information en adaptant cette ligne :

Code :

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

Debug.Print .Lines(.ProcBodyLine(.ProcOfLine(Debut, vbext_pk_Proc), vbext_pk_Proc), 1)

bonne soirée
michel

[Daejung]

Merci.... comment je ne comprends pas le code initial j'ai un peu de mal à l'adpater. en brut cela ne correspond pas aux 2 1eres lignes