boulfaledjo
XLDnaute Nouveau
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!!
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!!