Afficher le numéro de la semaine?

[zotar]

Bonjour
Sur une feuille de mon classeur grace a ce code j'affiche la date du jour:

Set Ws = Worksheets('commune')
If Worksheets('Liste').Range('D3').Interior.ColorIndex = 4 Then Exit Sub
Ws.Range('A2') = 'Date : ' & Format(Date, 'dddd dd mm yyyy')
derligne = Ws.Range('C65536').End(xlUp).Row + 1

Mais je souhaiterais aussi afficher le numéro de la semaine juste a^ré la date du style:


Ws.Range('A2') = 'Date : ' & Format(Date, 'dddd dd mm yyyy' 'semaine :' ....

Pouvez vous m'aider???

Merci d'avance

Zotar

 

[Bebere]

bonjour Zotar
en A1 la date
en B1 =ENT((A1-SOMME(MOD(DATE(ANNEE(A1-MOD(A1-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)
à+

 

[zotar]

J'ai voulu que semaine apparaisse en A3
J'ai donc fait:

Ws.Range ('A3') = 'Semaine :' & ENT((A1-SOMME(MOD(DATE(ANNEE(A1-MOD(A1-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)

Mais sa marche pas au niveau de MOD sa marque:
erreur de compilation attendu expression

Pouvez vous m'aider????

 

[beber]

re

la formule précédente est pour dans une feuille

Public Sub NoSemaine()
D='1/7/2005'
'format standard
D = Format(D, '0')
D = Int(D)
NoSem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NoSem = ((D - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) \\ 7 + 1
Feuil1.Range('A3').Value = 'Semaine : ' & NoSem
End Sub

à+

 

[zotar]

RE bonjour beber
Merci beaucoup pour ton aide c'est bien sympa
Par contre est il possible de marqué ce code dans mon 'this workbook'
J'ai essayer mais je dois mal le mettre.

Est possible que tu puisse me rajouter ton code dans mon this workbook???

Voici le this workbook de mon classeur:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub

Private Sub Workbook_Open()
Dim derligne As Integer
Dim Ws As Worksheet

Set Ws = Worksheets('commune')
If Worksheets('Liste').Range('D3').Interior.ColorIndex = 4 Then Exit Sub
Ws.Range('A2') = 'Date : ' & Format(Date, 'dddd dd mm yyyy')
derligne = Ws.Range('C65536').End(xlUp).Row + 1
On Error Resume Next
With Worksheets('Liste').Range('D3')
.Select
.Interior.ColorIndex = 3
.Value = 'Fichier Non Validé'
.Font.Bold = True
End With
On Error GoTo 0

End Sub

En éspérant que tu puisse m'aider.

Merci encore

Cordialement

Zotar