Discussion :

[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 ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("Chart").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Initial").Select

Merci d'avance

[fring]

Bonjour,

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Chart").Delete
Application.DisplayAlerts = True
End Sub

[cavo789]

Sans le "On error resume next" si possible ;-)

Autant éviter ce type de construction si possible.

[fring]

Euuh d'accord, toutes les remarques et critiques sont les bienvenues mais ça serait bien alors de dire le pourquoi ?

Dans ce cas ci il me semble que c'est un moyen simple pour éviter un bug si la feuille n'existe pas.

[kiki29]

On Error Resume Next est utile et malheureusement la seule méthode disponible en VBA

Evite les msg du type l'indice n'appartient pas à la sélection
ou la méthode Delete a échoué ( erreur 9 et 1004 )
si aucune feuille "Chart" n'est présente dans le classeur
ou si le classeur ne contient qu'une feuille et qu'elle est nommée "Chart"