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

[boulfaledjo]

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!!

 

[kjin]

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

Bonsoir,
En mettant

Application.DisplayAlerts = False

avant de fermer, ça désactive le message d'alerte
Ne pas oublier de remettre à true à la fin de la procédure
A+
kjin

 

[boulfaledjo]

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

Salut,

J'avais déjà essayé ce code, mais ca ne marche pas dans ce cas de figure particulier (une meme macro qui ouvre et ferme un classeur à distance)...