Sujet Précédent Sujet Suivant

Code excel 2000 vers excel 2002

cs_Liro Messages postés 159 Date d'inscription jeudi 7 septembre 2006 Statut Membre Dernière intervention 30 septembre 2011 - 28 avril 2008 à 16:09
cs_Liro Messages postés 159 Date d'inscription jeudi 7 septembre 2006 Statut Membre Dernière intervention 30 septembre 2011 - 28 avril 2008 à 16:15
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

Réponse 1 / 1
cs_Liro Messages postés 159 Date d'inscription jeudi 7 septembre 2006 Statut Membre Dernière intervention 30 septembre 2011
28 avril 2008 à 16:15
J'ai oublié de préciser que j'ai bien activer "Microsoft Visual Basic for Applications Extensibility 5.3"
0

Discussions similaires

EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute
wind3813 -
wind3813 -

2 réponses
Calcul sur excel de l'inverse tangente en grade
HERTAN -
ucfoutu -

4 réponses
Importation données excel vers access
rahmoun111 -
rach_zar -

2 réponses
Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin"
labriji -
labriji -

6 réponses
tangente et arctangente
unionx -
unionx -

2 réponses
Rejoignez-nous