Sauvegarde sans message pour un cas un peu particulier...

Bonjour le forum,

Je vous soumets un ptit problème que je n'arrive pas à resoudre (ultra débutant en vba)

J'ai un classeur source BDD_CO_59

A sa fermeture, il exécute une macro -> ouvrir le classeur BDD_CO_INT effacer son contenu, copier les données, fermer le classeur BDD_CO_INT
(j'ai utilisé cette solution plus simple que copier dans un classeur fermé, 'fin bref...)

code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Workbooks.Open "R:\MONOXYDE DE CARBONE\-BDD_R-\BDD_CO_INT.xls"
Range("[BDD_CO_INT.xls]BDD!A2:R5000").Clear
Workbooks("BDD_CO_59.xls").Sheets("BDD").Range("A2:C5000").Copy Destination:=Workbooks("BDD_CO_INT.xls").Sheets("BDD").Range("A65536").End(xlUp).Offset(1, 0)

Workbooks("BDD_CO_INT.xls").Close

Application.AlertBeforeOverwriting = False
ActiveWorkbook.Save

End sub


Mon classeur BDD_CO_59 se ferme, en sauvegardant sans message, jusque là tout va bien (attention aux collègues tetes en l'air!!)

LE PROBLEME:
on m'affiche un message d'alerte "sauvegarder BDD_CO_INT...."
et je ne voudrais pas qu'on m'affiche ce msg... (toujours les memes collegues!)

j'ai bien essayé de recopier le code suivant dans une macro de BDD_CO_INT mais rien n'y fait!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.AlertBeforeOverwriting = False
ActiveWorkbook.Save
End Sub


Si quelqu'un avait une idée, mes collegues et moi vous en seriont tres reconnaissant!!