Discussion :

[kesimon63]

Re-bonjour (décidément je suis très actif aujourd'hui.)

J'importe des macros de classeurs (userform + module)
or suivant le type de VBComponent je ne fait pas le même traitement
il me faudrait donc une ligne pour tester le type de VBComponent que je puisse utiliser dans mon if par la suite.

Merci d'avance pour les réponses

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim VBComp As Object
Dim VBComps As Object
 
Set VBComps = ThisWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
    Select Case VBComp.Type
        Case 1: MsgBox "module standard"
        Case 2: MsgBox "module de classe"
        Case 3: MsgBox "Userform"
        Case 100: MsgBox "module feuille ou thisworkbook"
    End Select
Next VBComp
Set VBComps = Nothing