tester si une feuille est encore présente dans le classeur

delete ! %-) j'espère que tu ne ferme pas tes classeurs de cette façon.

isabelle

Sheets("transfert conseiller").Select
ActiveWindow.SelectedSheets.Delete

en mettant comme on me l'a conseillé sur ce forum

Application.DisplayAlerts = False

pour éviter d'avoir le message de confirmation de
fermeture

-----Message d'origine-----
dit moi, comment fait tu pour fermer une feuille ?

isabelle

non quand je parle d'une feuille je parle d'une sheets
dans le classeur

ici sheets("transfert conseiller)

-----Message d'origine-----

désolé mais je ne comprends pas bien la fonction
que tu

m'a indiqué et où je renseigné la feuille à tester

lorsque tu écrit "feuille" veut tu dire un
fichier "WorkBooks" ?

si c'est bien ça modidifie comme suit :

Sub Test()
wb = InputBox("Entrer le nom du fichier à tester (
sans

l'extention

..xls)")
On Error Resume Next
Set fichier = Application.Windows("" & wb & ".xls")
If fichier <> Empty Then fichier.Close
Set fichier = Nothing
End Sub

isabelle
.

.

et ne pas oublier de mettre 'Application.DisplayAlerts = True '
avant de sortir de la macro,sinon plus de messages d'alerte.

Ce n'est pas tout à fait exact : pour s'en persuader, exécuter zz1 puis zz2

Sub zz1()
Application.DisplayAlerts = False
Sheets(1).Delete
End Sub

Sub zz2()
Sheets(1).Delete
End Sub

Il n'en demeure pas moins que c'est une excellente et nécessaire précaution
Ce qui même mieux c'est de remettre à true juste après la ligne "delete" (sans
attendre la fin de la macro)
C'était pour le smilblick

AV

bonjour
et de gérer l'annulation
x = InputBox("entrez le nom de la feuille à supprimer")
if x = "" then exit sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:O7fm5i8TEHA.3528@TK2MSFTNGP12.phx.gbl...

et ne pas oublier de mettre 'Application.DisplayAlerts = True '
avant de sortir de la macro,sinon plus de messages d'alerte.

Ce n'est pas tout à fait exact : pour s'en persuader, exécuter zz1 puis zz2

Sub zz1()
Application.DisplayAlerts = False
Sheets(1).Delete
End Sub

Sub zz2()
Sheets(1).Delete
End Sub

Il n'en demeure pas moins que c'est une excellente et nécessaire précaution
Ce qui même mieux c'est de remettre à true juste après la ligne "delete" (sans
attendre la fin de la macro)
C'était pour le smilblick

AV