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