Bonjour à tous,
J'ai besoin d'un peu d'aide sur un pb de macro :
Travaillant avec une base de données dans une feuille d'un premier classeur (classeur1-feuille "base"), je copie cette feuille "base" dans un autre classeur (classeur2) pour l'utiliser.
Pour cela j'ai écrit une macro qui ouvre le classeur2 et qui supprime la feuille "base" qui s'y trouve, afin de pouvoir la remplacer par celle que je copie dans le classeur1.
Mon petit pb est que, au moment de supprimer cette feuille, une boite de diaologue apparait disant "les feuilles sélectionnées seront définitivement supprimées.... OK - Annuler".
Or cette macro est destinée à être utilisée par des gens qui ne sont pas sensés pouvoir répondre à cette interrogation.
Ma question : comment faire pour empécher l'apparition de la boite de dialogue et supprimer la feuille sans que la question ne soit posée ?
Je joins un extrait de mon code au moment ou j'ouvre le classeur2 et que je supprime la feuille :
ChDir "C:\MESBASES\Gestion"
Workbooks.Open Filename:= _
"C:\MESBASES\Gestion\LaBaseAdresse.xls"
Sheets("base").Select
'c'est là qu'apparait la BDD
ActiveWindow.SelectedSheets.Delete
Windows("agestion2.xls").Activate
Sheets("base").Select
Sheets("base").Copy Before:=Workbooks("LaBaseAdresse.xls").Sheets(1)
ActiveWorkbook.Save
ActiveWorkbook.Close
Merci d'avance de votre aide
J'ai besoin d'un peu d'aide sur un pb de macro :
Travaillant avec une base de données dans une feuille d'un premier classeur (classeur1-feuille "base"), je copie cette feuille "base" dans un autre classeur (classeur2) pour l'utiliser.
Pour cela j'ai écrit une macro qui ouvre le classeur2 et qui supprime la feuille "base" qui s'y trouve, afin de pouvoir la remplacer par celle que je copie dans le classeur1.
Mon petit pb est que, au moment de supprimer cette feuille, une boite de diaologue apparait disant "les feuilles sélectionnées seront définitivement supprimées.... OK - Annuler".
Or cette macro est destinée à être utilisée par des gens qui ne sont pas sensés pouvoir répondre à cette interrogation.
Ma question : comment faire pour empécher l'apparition de la boite de dialogue et supprimer la feuille sans que la question ne soit posée ?
Je joins un extrait de mon code au moment ou j'ouvre le classeur2 et que je supprime la feuille :
ChDir "C:\MESBASES\Gestion"
Workbooks.Open Filename:= _
"C:\MESBASES\Gestion\LaBaseAdresse.xls"
Sheets("base").Select
'c'est là qu'apparait la BDD
ActiveWindow.SelectedSheets.Delete
Windows("agestion2.xls").Activate
Sheets("base").Select
Sheets("base").Copy Before:=Workbooks("LaBaseAdresse.xls").Sheets(1)
ActiveWorkbook.Save
ActiveWorkbook.Close
Merci d'avance de votre aide
