Imposer un nom pour une nouvelle feuille

chuinul · 10 Septembre 2007

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 · 10 Septembre 2007

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...

Code:

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

@+

Imposer un nom pour une nouvelle feuille

chuinul

XLDnaute Occasionnel

porcinet82

XLDnaute Barbatruc

Discussions similaires

Imposer un nom pour une nouvelle feuille

chuinul

XLDnaute Occasionnel

porcinet82

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency