J jpmetge XLDnaute Nouveau 8 Décembre 2019 #1 Bonjour, J'ai le message suivant: lorsque j'exécute la macro ci-dessous : Qui peut m'aider ? Merci d'avance jp
Bonjour, J'ai le message suivant: lorsque j'exécute la macro ci-dessous : Qui peut m'aider ? Merci d'avance jp
sylvanu XLDnaute Barbatruc Supporter XLD 8 Décembre 2019 #2 Bonjour Jpmetge, Votre formule est en français, utilisez WorksheetFunction.WorkDay ( voir https://docs.microsoft.com/fr-fr/office/vba/api/excel.worksheetfunction.workday ) Vote positif 0 Vote négatif
Bonjour Jpmetge, Votre formule est en français, utilisez WorksheetFunction.WorkDay ( voir https://docs.microsoft.com/fr-fr/office/vba/api/excel.worksheetfunction.workday )
J jpmetge XLDnaute Nouveau 8 Décembre 2019 #3 Merci Sylvanu ! cela fonctionne parfaitement. Bon dimanche Vote positif 0 Vote négatif
Staple1600 XLDnaute Barbatruc 8 Décembre 2019 #4 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 Vote positif 0 Vote négatif
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