Imposer un nom pour une nouvelle feuille

[chuinul]

Bonjour le forum

J'aurais besoin d'une petite aide de votre part :

Je voudrais savoir comment créer une nouvelle feuille dans un classeur en lui imposant un nom (par exemple "data")

ce que je ne veux pas faire :

Sheets.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "data"

car ceci ne marche qu'au premier appel de la macro.

Merci d'avance

 

[porcinet82]

Re : Imposer un nom pour une nouvelle feuille

Salut,

Voici un code a placer dans le module ThisWorkbook. Il te renomme automatiquement ta feuille lors de sa creation et empeche de creer une nouvelle feuille si la feuille date existe deja. Je sais que le code est un peu moche avec ce Goto, mais je n'ai pas réussit a passer outre, si quelqu'un a une idée...

Private Sub Workbook_NewSheet(ByVal Sh As Object)
On Error GoTo fin
ActiveSheet.Name = "data": Exit Sub
fin:
MsgBox "La feuille  existe deja"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

@+