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