Discussion :

[ekynoxx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[AlainTech]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Grillé par Alain
mais tu peux aussi utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ekynoxx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[AlainTech]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ekynoxx]

Impeccable,
Merci bien!