XL 2019 Problème de jour ouvré

jpmetge · 8 Décembre 2019

Bonjour,

J'ai le message suivant:

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

Qui peut m'aider ?
Merci d'avance
jp

sylvanu · 8 Décembre 2019

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 · 8 Décembre 2019

Merci Sylvanu !
cela fonctionne parfaitement.
Bon dimanche

Staple1600 · 8 Décembre 2019

Bonjour le fil, jpmetge, sylvanu

Pareil que sylvanu, mais avec un tit bonus

VB:

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

XL 2019 Problème de jour ouvré

jpmetge

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

jpmetge

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires

XL 2019 Problème de jour ouvré

jpmetge

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

jpmetge

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency