ced0802
12-23-2015, 05:58 AM
Hello everyone,
I would like the date to be Week 01 and not week 54..
Sub totx6in2W()
'Donne la demand de la semaine N+2 en generics x6
Dim db As Workbook
Dim WkStg As String
Dim annee As Long
annee = Year(Date)
annee = Format(Date, "yy")
mois = Month(Date)
jour = Day(Date)
If Len(jour) < 2 Then
jour = "0" & Day(Date)
End If
WkStg = Application.WorksheetFunction.WeekNum(Now(), 2) + 2
Title = "Wk " & WkStg & " Production schedule - " & annee & mois & jour
Thank you very much in advance !
I would like the date to be Week 01 and not week 54..
Sub totx6in2W()
'Donne la demand de la semaine N+2 en generics x6
Dim db As Workbook
Dim WkStg As String
Dim annee As Long
annee = Year(Date)
annee = Format(Date, "yy")
mois = Month(Date)
jour = Day(Date)
If Len(jour) < 2 Then
jour = "0" & Day(Date)
End If
WkStg = Application.WorksheetFunction.WeekNum(Now(), 2) + 2
Title = "Wk " & WkStg & " Production schedule - " & annee & mois & jour
Thank you very much in advance !