convertir nom du mois

Bonjour,

J'ai un classeur contenant des feuilles. Chaque feuille correspond à un mois : "Janvier", "Fevrier", etc....
par macro, je récupère le nom de la feuille

Code:

---

Range("A2")=range("A1").currentregion.worksheet.name

---

mais ensuite, j'ai besoin de convertir ce nom de mois : par exemple "janvier"=1, "février"=2, etc....

Pour l'instant, j'utilise

Code:

---

1 2	if range("A2")="janvier" then mo=1 end if if range("A2")="fevrier" then mo=2 end if

---

etc, etc,
Y-a-t-il une fonction et/ou instruction qui converti directement ?
(lorsqu'on fait "format de cellule", on peut choisir différent formats de date et/ou de mois, donc je pense que c'est possible.....

Merci,

A+

Bonjour,

Pour récupérer le nom de la feuille active, tu peux simplement écrire

Code:

---

Range("A2") = ActiveSheet.Name

---

Pour convertir le nom du mois :

Code:

---

Range("A2") = Month("01/" & ActiveSheet.Name)

---

salut

attention : cette utilisation de Month est subordonnée à un respect absolu du nommage des feuilles en concordance avec l'orthographe des mois, notamment en matière d'accents (février,août, décembre)

Merci Fring,

Une fois de plus, tu m'as aidé. J'avais pris un code sur la FAQ et je l'avais modifié (d'où le "Currentregion"), et complètement zappé qu'il y avait plus simple..et logique......

Merci.

A+ pour de nouvelles aventures,

Merci babaothe pour cette précision, le nom des feuilles est en majuscule pour l'instant, et si je vois que le code de Fring (=utilisation de "Month") ne passe pas, je renommerai toutes les feuilles suivant ton conseil.

A+ pour de prochaines aventures.

le plus prudent est peut-être de nommer tes feuilles dynamiquement, soiit au moment de leur création, soit en les renommant ensuite
exemple :

Code:

---

Sheets("feuil1").Name = MonthName(2)

---

nommera en "février" ta feuille "feuil1"
l'utilisation ultérieure de Month ne se heurtera ainsi à aucun obstacle.

Ok,
Tu as raison, soyons prudent....
Je vais faire une boucle

Code:

---

1 2 3

for i=1 to 12 Sheets("feuil"& i).Name = MonthName(i) Next

---

histoire de ne pas être embêté par Month.

Merci,

A+ pour de prochaines aventures