Suppression de Macro

[deni29]

Bonjour le forum,

Je cherche à supprimer une macro, j'ai trouver sur le forum, les codes suivants :

Sub supprimerMacro()
Dim Debut As Integer, Lignes As Integer
With ThisWorkbook.VBProject.VBComponents ('Module2').CodeModule
Debut = .ProcStartLine('Gestion3', 0)
Lignes = .ProcCountLines('Gestion3', 0)
.DeleteLines Debut, Lignes
End With
End Sub
Sub


Sub supprimerModule()
With ThisWorkbook.VBProject.VBComponents
.Remove .Item('module2')
End With
End Sub

Private Sub Workbook_Open()
Dim Debut As Integer, Lignes As Integer
'enregistrement du nouveau classeur
Thisworkbook.Saveas Filename:='C:excelenregistrement ' & Format (Time, 'hh mm ss') & '.xls'
'suppression de la procedure Workbook_Open
With Thisworkbook.VBProject.VBComponents('Thisworkbook').codemodule
Debut = .Procstartline('Workbook_Open', 0)
Lignes = .Proccountlines('Workbook_Open', 0)
.Deletelines Debut, Lignes
End With
'sauvegarde modification
Thisworkbook.Save
End Sub


Mon PB, Jai essayé les 3 solutions, mais pour les 3, sur les codes 'With Thisworkbook.VBProject.VBComponents.......',
j'ai la même erreur d'exécution 1004.

D'ou vient cette erreur,

Merci d'avance

Deni29

 

[mutzik]

Bonjour Deni29

Pourquoi vouloir supprimer une macro par macro ?

Si elle ne sert plus, tu effaces le module correspondant et puis voilà

Je suis un peu le père plex 🙂

 

[deni29]

Mutzik,

Je souhaite supprimer une macro qui s'ouvrehe automatiquement par : Private Sub Workbook_Open()
dans un fichier qui me sert de base et qui est dupliqué(via Thisworkbook.Saveas Filename)Donc pour ne plus avoir la macro automatiquement à l'ouverture dans les nouveau fichier ainsi dupliqués, je suis obligé de la supprimer.

à moins que vous ayez une autre solution.

@+

deni29