Discussion :

[jose23]

Bonjour,

SVP pourriez vous m'aider à transformer cette fonction Excel en VBA :

Code :

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

=DATE(ANNEE(B1);1;-MAX(JOURSEM(DATE(ANNEE(B1);1;0);2)5;0))

Ici la date est dans la cellule B1 mais a la place je vais la renseigner par un InputBox

Je veux retrouver le dernier jour ouvré de l'année N-1

J'ai essayé ce code mais ca ne marche pas :/

Code :

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

1
2
3
4
5
Sub dateannée()
Worksheets("Feuil2").Select
maDate = InputBox("Merci de renseigner une date :", "Application", Date)
StDate = Day(maDate) - WorksheetFunction.max((Weekday((maDate), 2) - 5), 0)
End Sub

[joe.levrai]

Bonjour,

avec SERIE.JOUR.OUVRE ?

Code :

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

1
2
3
4
5
Sub Toto()
Dim Annee As Long
    Annee = 2018
MsgBox CDate(Application.WorksheetFunction.WorkDay(DateSerial(Annee, 1, 1), -1))
End Sub

attention, ici les jours fériés ne sont pas gérés, il faut pour se faire utiliser le troisième argument optionnel de la fonction

[jose23]

joe.levrai Super merci beaucoup ca marche