Discussion :

[balibou]

Bonjour,

Je cherche à obtenir la date du dernier vendredi passé, mais sans succès.
Je suis allé faire un tour sur ce lien, mais je n'arrive qu'a obtenir la date du dernier jour d'un mois / d'une année etc ...

lien :

http://mhubiche.developpez.com/vba/f...ions/datetime/

Si vous pouvez m'aider ...

Merci

[Kimy_Ire]

Voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub vendredi()
Dim tod As Date
Dim vendredi_dernier As Date
 
tod = Date
 
Do While Int(((tod - DateSerial(Year(tod), 1, 0)) + 6) / 7) = Int(((Date - DateSerial(Year(Date), 1, 0)) + 6) / 7)
    tod = tod - 1
Loop
 
vendredi_dernier = tod - 3
 
MsgBox "Vendredi " & vendredi_dernier
 
End Sub

Dis moi si cela te convient !

[Philippe Tulliez]

Bonjour,
Sans VBA, la formule ci-dessous renvoie la date du vendredi qui précède wkDate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=wkDate-1*JOURSEM(wkDate+7;2)-2

Où wkDate représente la date
[EDIT]
Attention : ici nous considérons que la valeur renvoie le vendredi qui précède une semaine de travail (du lundi au vendredi).
Donc si l'on tape le 10/3/2013 (dimanche) la formule renvoie la date du vendredi 1/3.

[balibou]

Merci beaucoup !
ca marche nikel ! (je vais opter pour la première solution je pense)

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function LastFriday(ByVal Dte As Date) As Date
 
LastFriday = Dte - Weekday(Dte, vbFriday) + 1
End Function

Fonction personnalisée qui donne le dernier vendredi si Dte est différente de vendredi sinon, le même vendredi

[Philippe Tulliez]

Bonjour Mercatog,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function LastFriday(ByVal Dte As Date) As Date
LastFriday = Dte - Weekday(Dte, vbFriday) + 1
End Function

Fonction personnalisée qui donne le dernier vendredi si Dte est différente de vendredi sinon, le même vendredi

Juste au moment où j'allais traduire la formule que j'utilise en Excel pour la proposer en VBA, je découvre ta proposition

[Kimy_Ire]

CORRECTIF :

J'avais oublier de prendre en compte le samedi et le dimanche d'où :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub vendredi()
Dim tod As Date
Dim vendredi_dernier As Date
 
tod = Date
 
If Int(((tod + 1 - DateSerial(Year(tod + 1), 1, 0)) + 6) / 7) <> Int(((tod - DateSerial(Year(tod), 1, 0)) + 6) / 7) Then
    vendredi_dernier = tod - 2
ElseIf Int(((tod + 2 - DateSerial(Year(tod + 2), 1, 0)) + 6) / 7) <> Int(((tod - DateSerial(Year(tod), 1, 0)) + 6) / 7) Then
    vendredi_dernier = tod - 1
Else
    Do While Int(((tod - DateSerial(Year(tod), 1, 0)) + 6) / 7) = Int(((Date - DateSerial(Year(Date), 1, 0)) + 6) / 7)
        tod = tod - 1
    Loop
 
    vendredi_dernier = tod - 3
End If
 
MsgBox "Vendredi " & vendredi_dernier
 
End Sub

Tiens moi au courant !