Excel VBA : soustraire 3 jours ouvrés a date

Résolu
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -  
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche a effectuer une soustraction de 3 jours ouvrés a une date présente dans une cellule Excel.

J'ai pour le moment ecris :
Cells(Lig001, 22).Value = Cells(Lig001, 22).Value - 3

(c'est dans une boucle)
Mais bien évidement, le 3 correspond a des jours calendaires.
Sauriez vous comment soustraire des jours ouvrés svp ?
A voir également:

1 réponse

Réponse 1 / 1
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   20
 
J'ai trouvé ma réponse.
Peut être que ce sera utile à quelqu'un. Il suffit d'écrire :

Dim Marge as long
Marge = -3

Cells(Lig001, 22).Value = Application.WorksheetFunction.WorkDay(Cells(Lig001, 22).Value, Marge)

Et la colonne 22 de la ligne en cours (c'est dans une boucle) recevra la valeur suivnte : valeur de la colonne 22 de la ligne ne cours - 3 jours ouvrés.
1