verifie si module/userform present dans fichier

[jeanjean]

bjr a tous

j'aurais besoin de vos lumieres
Je souhaiterais faire une macro qui aille verifier si un module ou un userform précis est dans un fichier excel à son ouverture. Auriez vous une astuce pour cela genre :
sub workbook_open
'est ce que agencerequest existe dans ce fichier?
si oui...blablabla

merci d'avance

 

[MichelXld]

bonjour

j'espere que ces exemples pourront t'aider

pour controler si un module ou un Userform existe dans un classeur


Sub Test()
controleVBE 'UserForm1', 'Classeur1.xls'
controleVBE 'module1', 'Classeur1.xls'
End Sub

Sub controleVBE(Cible As String, Classeur As String)
'necessite d'activer la reference
'Microsoft Visual Basic for Applications Extensibility 5.3
Dim VBComp As VBComponent
On Error Resume Next
Set VBComp = Workbooks(Classeur).VBProject.VBComponents(Cible)
If VBComp Is Nothing Then
MsgBox 'n'existe pas'
Else
MsgBox 'Existe'
End If
End Sub



pour verifier si une macro précise existe dans un classeur


Sub Test2()
controlePresenceMacro 'nomMacro', 'Classeur1.xls'
End Sub


Sub controlePresenceMacro(Cible As String, Classeur As String)
'verifies si la macro 'nomMacro' existe dans le classeur nommé 'classeur1.xls'
'necessite d'activer la reference Visual basic For Application Extensibility 5.3
Dim Msg As String
Dim VBCmp As VBComponent
Dim Debut As Integer

Debut = 0
On Error Resume Next
For Each VBCmp In Workbooks(Classeur).VBProject.VBComponents
Msg = VBCmp.Name

With Workbooks(Classeur).VBProject.VBComponents(Msg).CodeModule
Debut = .ProcStartLine(Cible, 0)
End With
If Debut > 0 Then Exit For
Next VBCmp

If Debut = 0 Then
MsgBox 'n'existe pas'
Else
MsgBox 'Existe'
End If
End Sub



bon apres midi
MichelXld

 

[jeanjean]

merci michelXld, c'est exactement ce qu'il me falait

Bon lundi (dans la mesure ou un lundi peut etre bon :S )