Private Sub Workbook_Open() ' Dans ThisWorkBook
'pour formater le numero de semaine en S48 ou S01
X = "S" & Format(NOSEM(Date), "00")
'recherche dans la ligne 11 dela feuille 1er ... de la cellule contenant le Numero de la semaine selon le format precedent
Set Y = Sheets("1er niveau 2014").Rows(11).Find(X, LookIn:=xlValues, lookat:=xlWhole)
'selection de la dite cellule
Y.Select
' Dans le module
Function prem(an As Integer) As Date
'pour chacun des 7 premiers jours de l'année an
For n = CDate("01/01/" & an) To CDate("07/01/" & an)
's'il s'agit d'un jeudi le lundi se situe 3 jours avant
If Weekday(n) = 5 Then prem = n - 3
Next n
End Function
Function NOSEM(ladate As Date) As Variant
'Difference entre ladate et le 1er lundi de l'année /divisé par 7 donne le numero de la semaine
NOSEM = Int((ladate - prem(Year(ladate))) / 7) + 1
'si le numero est 53 et si le jeudi n'est pas inclus alors il s'agit de la semaine 1 de l'année suivante
If NOSEM = 53 And Weekday(ladate) < 5 Then NOSEM = 1
End Function
End Sub