[VBA-E]Trouver le Numéro de semaine

Bonjour,
Je souhaite rajouter une feuille dans mon classeur qui contienne dans son titre la semaine en cours.
J'ai donc cree le code suivant :

Code:

---

1 2 3 4 5 6 7 8

Sub CurrentWeek() Dim CurrentWeek As Integer   Range("A1000").FormulaR1C1 = "=WEEKNUM(TODAY(),2)" CurrentWeek = Range("A1000").Value Worksheets.Add.Name = "07wk" & CurrentWeek   End Sub

---

Cela fonctionne mais le soucis est que je ne voudrais pas requisitionner une cell (ici, A1000) mais stocker le resultat de la formule directement dans la variable CurrentWeek.

Merci d'avance.

En une seule ligne et sans variable à déclarer:

Code:

---

Worksheets.Add.Name = "07wk" & Format(Date, "ww", , vbFirstFourDays)

---

Code:

---

1 2 3 4

Sub SemaineCurrent() LaVar = DatePart("ww", Now(), 2) MsgBox LaVar End Sub

---

Grillé par Alain
mais tu peux aussi utiliser

Code:

---

Worksheets.Add.Name = "07wk" & DatePart("ww", Now(), 2)

---

Ca marche nikel,
J'ai du chemin a parcourir avant d'etre moderateur sur ce site!
J'aurai juste vouloir savoir si c'eatit possible de mettre ca dans une variable car je risque d'avoir de cette manip pour la suite du projet.
J'ai essaye :

Code:

---

1 2 3 4 5

Sub Week() Dim CurrentWeek As Integer CurrentWeek = WEEKNUM(TODAY(),2) End Sub

---

Cela ne marche pas il ne semble pas reconnaitre les fonctions.
Merci d'avance.

Citation:

---

Envoyé par ouskel'n'or

Code:

---

LaVar = DatePart("ww", Now(), 2)

---

---

Impeccable,
Merci bien!