Discussion :

[bastien]

Bonjour,

J'ai une erreur 1004 sur la ligne "for ...". ????????

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Activate()
Dim X As Integer
For X = 1 To ActiveWorkbook.VBProject.VBComponents.Count
       MsgBox ActiveWorkbook.VBProject.VBComponents(X).Name
    Next
End Sub

Pour quelle raison ?