Code excel 2000 vers excel 2002

Signaler
Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011
-
Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011
-
Bonjour,

Auparavant sur Excel 2000 j'utilisais le code suivant pour supprimer les macros d'un fichier
Sub supMacro()

'selectionner l'odp
    Windows("monfichier.xls").Activate
       
'supprimer macro
Dim VbComp As VBComponent

For Each VbComp In ActiveWorkbook.VBProject.VBComponents
    Select Case VbComp.Type
    Case 1 To 3
    ActiveWorkbook.VBProject.VBComponents.Remove VbComp
    Case Else
    With VbComp.CodeModule
    .DeleteLines 1, .CountOfLines
    End With
    End Select
Next VbComp

Ce code ne fonctionne plus sur Excel 2002.
Es-ce quelqu'un peut m'aider?

Merci
Liro

1 réponse

Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011

J'ai oublié de préciser que j'ai bien activer "Microsoft Visual Basic for Applications Extensibility 5.3"