Calcul sur les dates et jours ouvrés

Bonjour,

Pour le moment ma variable "a" est définit "As integer". Ma variable i prend la valeur de 1 à N. Je souhaiterais, grâce à la formule ci-dessous, faire en sorte d'incrémenter à la date d'aujourd'hui, le résultat de a*i en jours ouvrés. Comment dois-je définir ma variable a pour pouvoir y parvenir ?

Merci beaucoup pour votre aide !

Bonjour,

Voici un petit bout de code (qui n'est pas de moi, je le précise) pour trouver les jours ouvrables suivants une date

Public Function JourOuvrableSuivant(Jour As Date)
'par Excel-Malin ( https://excel-malin.com )

Select Case Weekday(Jour, vbMonday)
    Case 5: JourOuvrableSuivant = Jour + 3 'si vendredi --> lundi
    Case 6: JourOuvrableSuivant = Jour + 2 'si samedi   --> lundi
    Case Else: JourOuvrableSuivant = Jour + 1
End Select
End Function

Est ce que cela t'aidera ?

Cdlt

Jacky

Je vous remercie de votre aide. Malheureusement je ne vois pas trop comment l'appliquer à mon code ... N'y a t-il tous simplement pas moyen, par exemple aujourd'hui, 03 Janvier, d'effectuer le calcul 03/01/2022 + 7Jours ouvrés = 12/01/2022 ?

Dans mon cas, 7 correspondrait ici à a*i jours ouvrés. Une simple conversion de ma valeur a*i en jours ouvrés n'est pas possible ?

Merci,

Cdt

Voici un produit qui pourrait peut être répondre à ta question. Si c'est le cas il faudra l'adapter

Cdlt

Jacky

Bonsoir,
Une piste ?
Cdlt.

Public Function AddDate(dt As Date, a As Integer, i As Integer)
    AddDate = WorksheetFunction.WorkDay_Intl(dt, a * i)
End Function

C'est parfait merci beaucoup ! En adaptant le code je suis parvenu à mes fins,

Bonne soirée !

Bonsoir,