[VB Excel] passer outre une boite de dialogue

Babelge Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
 Maryse -
Bien le bonjour

Je suis en train d'écrire une macro XL qui doit, entre autre, effacer une des feuilles du classeur devenue inutile.

l'enregistreur de macro m'a proposé 
Sheets("tmp").Select
ActiveWindow.SelectedSheets.Delete


mais j'ai allégé... 
Sheets("tmp").Delete



Quelque soit la version du code, le problème c'est que qu'à l'exécution, la macro fait la pause et attend que je confirme l'effacement en cliquant dans une boite de dialogue qui dit en substance "la feuille peut conternir de des données... voulez vous quand même l'effacer"

Je voudrais savoir si par une ligne de code en plus, on peut forcer la confirmation.

Merci à celles ou ceux qui me répondront
A voir également:

3 réponses

Réponse 1 / 3
JL86 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour,
essaye cette action qui suspend puis revalide aprés action le message d'alerte

Application.DisplayAlerts = False
Worksheets("tmp").Delete
Application.DisplayAlerts = True
0
Babelge Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai testé et je suis convaincu.
En plus, le code est non spécifique et ça permet de l'utiliser pour autre chose qui dans l'interval me génait> écraser un fichier existant

Merci.
0
Réponse 2 / 3
Oban_14
 
Super
Merci beaucoup, je viens de m'en convaincre aussi !!!

:-)
0
Réponse 3 / 3
Maryse
 
Sub DeleteSheet(strSheetName As String)

'Efface une feuille sans demander de confirmation
'================================================

' deletes a sheet named strSheetName in the active workbook
Application.DisplayAlerts = False
Sheets(strSheetName).Delete
Application.DisplayAlerts = True
End Sub
0