suppression macros

[Sébbb]

Re bonjour à tous,
j'ai un autre soucis maintenant (je ne l'avais pas avant...)
Voici deux macros que j'utilise :

Sub Record()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:='Classeur Microsoft Excel(*.xls), *.xls')
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName
MsgBox 'Sauvegarder en tant que ' & fileSaveName
End If
End Sub

Sub supprimerMacros()
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item('Module1')
.Remove .Item('UserForm1')
End With
End Sub

Je les execute dans l'ordre:
supprimerMacros et Record

mais j'ai un bug sur mes remove, ils sont soulignés en jaune qd j'appuie sur enregistrer de la fenêtre générée par Record,
Bizzard car la suppression des macros se fait en premier dc je comprend pas prquoi ca bug sur la première apres la deuxieme?!?!

Quelqu'un aurait-il une explication?

Merci d'avance pour votre aide
A+
Sébbbb

 

[Philippe]

Bonjour B)
Comment sont lancés supprimerMacros et Record ?
Quel est le texte du message d'erreur ?
Module1 et usrform1 existe t ils
A+
Philippe

 

[Philippe]

Bonjour B)
Comment sont lancés supprimerMacros et Record ?
Quel est le texte du message d'erreur ?
Module1 et usrform1 existe t ils
A+
Philippe

 

[Philippe]

Bonjour B)
Comment sont lancés supprimerMacros et Record ?
Quel est le texte du message d'erreur ?
Module1 et usrform1 existe t ils
A+
Philippe

 

[Sébbb]

Bonjour Philippe, Bonjour à tous,
Désolé de répondre si tard à tes questions.

Les macros sont lancées dans this workbook:

Option Explicit

Dim TaBooleanPublic As Boolean


Private Sub Workbook_BeforeClose(Cancel As Boolean)
TaBooleanPublic = False
ThisWorkbook.Save

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = TaBooleanPublic
If TaBooleanPublic = True Then
'MsgBox 'Enregistrement interdit'
supprimerMacros
Record
End If
End Sub

Private Sub Workbook_Open()
TaBooleanPublic = True
End Sub

Le message d'erreur est le suivant:
Erreur d'execution '9'
L'indice n'appartient pas à la sélection
Qd je clique sur débogage, j'ai en jaune .Remove .Item('Module1')

Quand la macro supprimermacros est lancée, le Module et l'Usf existent, qd record est lancée (apres supprimer...) ils n'existent plus.
Ce que je ne comprends pas, c'est que la macro supprimer... fait son boulot, record aussi mais retour sur la première!?!?

Enfin, les 2 macros sont dans Module 2 qui n'est bien sur pas supprimer.

Voila pour tes questions;

J'espère que tu reviendra sur le fil.

a+ et merci pour ton aide