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.