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 :
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.
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
Merci d'avance.
Partager