Supprimer les macros par une macro...

[patsyl60]

Bonjour à tous,

Je souhaiterai executer une macro dans un fichier "matrice"(fichier EssaiSaveAs.xls dans mon exemple) et ensuite l'enregistrer dans un autre fichier mais sans la ou les macro(s). J'ai trouvé sur le net un code que j'ai adapté mais j'ai une erreur :

Sub SaveAsWithoutMacros()
 Dim NomSource$, CheminDest$, NomDest$
 Dim VBC As Object
 
 NomSource = "EssaiSaveAs.xls"
 CheminDest = "C:\"
 NomDest = "Essai.xls"
 Workbooks(NomSource).SaveAs CheminDest & NomDest
 
 With ActiveWorkbook.VBProject
  For Each VBC In .VBComponents
   If VBC.Type = 100 Then
    With VBC.CodeModule
     .DeleteLines 1, .CountOfLines
     .CodePane.Window.Close
    End With
   Else: .VBComponents.Remove VBC
   End If
  Next VBC
 End With
 
 Application.Quit
 SendKeys "%O"
 
 End Sub

J'ai une erreur 1004 sur la ligne

With ActiveWorkbook.VBProject

Je ne sais pas pourquoi . Pouvez vous m'aider ?

Je vous joint mon fichier.

D'avance merci.

Patsyl60

 

[gilbert_RGI]

Re : Supprimer les macros par une macro...

Bonjour

voir ceci peut-être

 

[patsyl60]

Re : Supprimer les macros par une macro...

Bonjour

Merci pour ta réponse. J'ai choisi la macro SupprimeTout mais j'ai une erreur sur :

Dim VbComp As VBComponent

Erreur de compilation : type défini par l'utilisateur non défini

Patsyl60

 

[gilbert_RGI]

Re : Supprimer les macros par une macro...

nécessité d'activer la référence Microsoft Visual Basic for Applications Extensibility 5.3.

est-ce fait??

 

[patsyl60]

Re : Supprimer les macros par une macro...

Merci Gilbert_RGI,

j'ai activé Microsoft Visual Basic for Applications Extensibility 5.3. et cela fonctionne.

Encore merci

Bonne journée.

Patsyl60