détecter insérer feuille

*Bonjour Jean*,
Peut etre compter le nombre de feuilles et stocker le resultat dans une
cellule, puis faire la comparaison a la prochaine ouverture...

Bonjour,

dans un module vba, je voudrais détecter lorsqu'une feuille a été ajoutée.
Comment puis-je faire ?

Jean

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour,
il y a un évenement de Thisworkbook pour cela, exemple:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
On Error GoTo fin
ActiveSheet.Name = InputBox("Cette feuille sera nommée:", _
" ***** Nouvelle feuille ***** ", _
"Fiche" & Sheets.Count)
Exit Sub
fin:
ActiveSheet.Name = "Fiche" & Sheets.Count
End Sub


'lSteph
"Jean" <jj@free.fr> a écrit dans le message de news:
442d75a7$0$18332$8fcfb975@news.wanadoo.fr...

Bonjour,

dans un module vba, je voudrais détecter lorsqu'une feuille a été ajoutée.
Comment puis-je faire ?

Jean

Dans l'éditeur doubleclick sur workbook (à gauche)et copie cela.
en événement NewSheet
Ici la macro supprime la feuille sitot crée.
Ce n'est qu'un exemple....
A savoir aussi
Sheets.Count ....donne le nombre de feuilles du classeur
Youky

Private Sub Workbook_NewSheet(ByVal Sh As Object)
msgbox " Mais..!! Qui vous a donné l'autorisation d'insérer une feuille.??"
Application.DisplayAlerts = False
Sheets(ActiveSheet.Name).Delete
Application.DisplayAlerts = True
End Sub

"Jean" <jj@free.fr> a écrit dans le message de news:
442d75a7$0$18332$8fcfb975@news.wanadoo.fr...

Bonjour,

dans un module vba, je voudrais détecter lorsqu'une feuille a été ajoutée.
Comment puis-je faire ?

Jean

OK merci à tous
Je suis désolé mais j'ai chercher comment détecter le changement de nom de
la feuille et je n'y parviens pas.
J'ai chercher dans les événement WorkBook mais j'ai rien trouvé.

Pouvez vous m'aider une fois de plus

Jean


"Jean" <jj@free.fr> a écrit dans le message de news:
442d75a7$0$18332$8fcfb975@news.wanadoo.fr...

Bonjour,

dans un module vba, je voudrais détecter lorsqu'une feuille a été ajoutée.
Comment puis-je faire ?

Jean