Répondre Supprimer automatiquement en VBA

[Boby71C]

Bonjour à tous

Existe t'il un code VBA pour répondre automatiquement "Supprimer" sans action de l'opérateur, lorsque la boite de dialogue apparait à l'écran.

Voici mon code actuel:

'Supprimer la feuille "Avancement" du fichier "Total charge"
Windows("Total Charge.xls").Activate
Sheets("Avancement").Select
ActiveWindow.SelectedSheets.Delete

Merci pour votre aide
@+

 

[Compte Supprimé 979]

Re : Répondre Supprimer automatiquement en VBA

Salut Boby71C

Tu peux tuiliser

Application.DisplayAlerts = False
  Workbooks("Total Charge.xls").Sheets("Avancement").Delete
  Application.DisplayAlerts = True

A+

 

[Boby71C]

Re : Répondre Supprimer automatiquement en VBA

Bonjour
Merci beaucoup Bruno.
Ça fonctionne très bien
Quand on a une pane de mémoire, c'est pas bon .

@+