Discussion :

[patanar]

bonjour,

Est-il possible d'empêcher, par une commande en VB sous excel, la création d'une nouvelle feuille de calcul ou ce qui reviendrait au même de limiter de nombre de feuilles dans un classeur.

Merci de votre aide, je n'arrive pas à trouver la solution

[mapeh]

Bonsoir,

par code, nombre à adapter.....

Code à insérer dans le code du ThisWorkBook :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_NewSheet(ByVal Sh As Object)
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
If Sheets.Count > 1 Then Sh.Delete
With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
End Sub

Bonne nuit