Vérifier si un classeur contient des macros

[SilkyRoad]

Cette fonction renvoie Vrai ou Faux. Le classeur à tester doit être ouvert:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
'Nécessite d'activer la référence:
'Microsoft Visual Basic for Applications Extensibility 5.3
Function ContientMacro(Wb As Workbook) As Boolean
    Dim VbComp As VBComponent
 
    For Each VbComp In Wb.VBProject.VBComponents
        With VbComp.CodeModule
              ContientMacro = .CountOfDeclarationLines + 1 < .CountOfLines
        End With
 
        If ContientMacro Then Exit For
    Next VbComp
End Function

Dans Excel 2007, vous pouvez utiliser directement la propriété HasVBProject de l'objet Workbook. La propriété renvoie VRAI si le classeur testé contient du code, et FAUX dans le cas contraire.

Code :

1
2
'le fichier "NomClasseur.xls" doit être préalablement ouvert.
MsgBox Workbooks("NomClasseur.xls").HasVBProject