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