Sub nommerformule()
' Macro1 Macro
' Macro enregistrée le 10/03/2009 par VBACrumble
With ActiveWorkbook.Names
.Add Name:="PJA", RefersToR1C1:="=DATE(YEAR(TODAY()),1,1)"
.Add Name:="MOISPARNUMSEM", RefersToR1C1:= _
"=PROPER(TEXT((!R1C1*7)+PJA-IF(WEEKDAY(PJA,2)>4,WEEKDAY(PJA,2)-1,6+WEEKDAY(PJA,2)),""mmmm""))"
End With
End Sub
Sub TestMacro()
Dim NUMSEM As Byte
nommerformule
NUMSEM = InputBox("Numero de semaine : de 1 à 52" & Chr(13) & Chr(13) & "Année de référence :" & Year(Date))
Range("A1") = NUMSEM
Range("B1").Formula = "=MOISPARNUMSEM"
End Sub