XL 2019 Problème de jour ouvré

[jpmetge]

Bonjour,

J'ai le message suivant:

lorsque j'exécute la macro ci-dessous :

Qui peut m'aider ?
Merci d'avance
jp

 

[sylvanu]

Bonjour Jpmetge,
Votre formule est en français, utilisez
WorksheetFunction.WorkDay
( voir https://docs.microsoft.com/fr-fr/office/vba/api/excel.worksheetfunction.workday )

 

[jpmetge]

Merci Sylvanu !
cela fonctionne parfaitement.
Bon dimanche

 

[Staple1600]

Bonjour le fil, jpmetge, sylvanu

Pareil que sylvanu, mais avec un tit bonus

Sub TestIII()
MsgBox JourSuivant(Date)
MsgBox JourSuivant(Date, 2)
MsgBox JourSuivant(Date, 4)
End Sub
Function JourSuivant(Jour As Date, Optional NBJ As Long = 1) As Date
JourSuivant = Application.WorkDay(Jour, NBJ)
End Function