Nommer les feuilles d'excel avec vba

:?je souhaite utiliser ce code ci-dessous pour créer des feuilles excel en fonction des mois de l'année, la creation c'est ok, mais j'arrive pas à trouver un code pour les nommer spontannément par les mois de l'année c-a-d chaque onglet prend le nom d'un mois.je le fais avec un InputBox mais ca me plais pas, merci d'avance pour vos reponses.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub AddMonths() Dim m As Integer   For m = 1 To 11   Sheets.Add   ActiveSheet.Select   ActiveSheet.Name = InputBox("le mois")   next m   End Sub

---

Essaye

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub AddMonths() Dim m As Integer For m = 1 To 11 Sheets.Add ActiveSheet.Select ActiveSheet.Name = MonthName( m ) next m End Sub

---

mais par contre, il n'y a jamais de mois de décembre dans ton fichier?

Salut
En règle général il est préférable d'éviter les Select et Activate, ceux ci sont abondamment générés lors des enregistrements de maco mais doivent être éliminé lors de la refonte du code.
Regarde avec ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Foug() Dim m As Integer, NomM As String   For m = 1 To 12 With Sheets.Add(After:=Sheets(Sheets.Count)) NomM = MonthName(m) .Name = UCase(Left(NomM, 1)) + Right(NomM, Len(NomM) - 1) End With Next m   End Sub

---

Petit bonus, avec la 1er lettre en majuscule, ça fait plus propre ^^

A++
Qwaz

Bonjour.

Dans la même idée, on peut aussi faire

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Foug() Dim m As Integer, wSh As Excel.Worksheet   For m = 1 To 12 Set wSh = ThisWorkbook.Worksheets.Add(, ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)) wSh.Name = StrConv(MonthName(m), vbProperCase) Next m   Set wSh = Nothing   End Sub

---

PGZ

A EmmanuelleC &Qwazerty & pgz

Merci beaucoup à vous, le probleme est resolu