Excel VBA : soustraire 3 jours ouvrés a date

Résolu/Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 28 oct. 2010 à 18:16
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 4 nov. 2010 à 11:45
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

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
4 nov. 2010 à 11:45
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