suppression d'une feuille sur excel

[voldo2142]

Bonsoir,

Je veux supprimer une feuille dans mon fichier excel à travers VBA, mais dès que je lance ma maccro, il y a le message de suppression qui s'affiche en me demandant si je suis sur de vouloir supprimer la feuille... Comment faire pour que ca supprime sans que cela me demande de confirmer la suppression ??

    Sheets("Chart").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Initial").Select

Merci d'avance

 

[phlaurent55]

Re : suppression d'une feuille sur excel

Salut, voldo, le forum

application.displayalerts = false avant de faire ton delete
et remettre à true après cette ligne

 

[Spitnolan08]

Re : suppression d'une feuille sur excel

Bonsoir,

Application.DisplayAlerts = False

devrait convenir. Mais penser à le remettre à true après... car il empêchera bien d'autres messages d'alerte. Et ceux ci peuvent être utiles...
Cordialement

Edit : Salut JCGL : encore vert le garçon😛
Et salut phlaurent55

 

[JCGL]

Re : suppression d'une feuille sur excel

Bonjour à tous,

Rajoute :

Application.DisplayAlerts = False

et SURTOUT

Application.DisplayAlerts = True

en fin de code avant le End Sub

A+

Edition Salut Spit : il est presque aussi rapide que moi le gamin arf A++.
Salut PhLaurent

 

[phlaurent55]

Re : suppression d'une feuille sur excel

Salut à tous,

3 réponses identiques en moins de 2 minutes................... 😱 c'est le record du jour 😱

 

[voldo2142]

Re : suppression d'une feuille sur excel

Bah ca marche pas...

Voila mon code :

    Sheets("Chart").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True
    Sheets("Initial").Select[CODE]

Ou est l'erreure?

 

[JCGL]

Re : suppression d'une feuille sur excel

Re,

Ça ne risque pas de marcher...

Le Application.DisplayAlerts = False juste sous le Sub .....()

et le

Application.DisplayAlerts = True juste avant le End Sub

A+