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 ?

[jfontaine]

Bonjour,

Pour info, je n'ai aucune erreur avec ton code. (Excel 2010)

[issoram]

Bonjour,

As-tu coché "Accès approuvé au modèle d'objet du projet VBA" dans Options\Centre de gestion de la confidentialité\paramètres\paramètres des macros? (pour Excel 2010)

Cordialement.

[bastien]

Bonjour,

En effet, cela a résolu mon problème. Il fallait le deviner !!!