Nombre de jours ouvrés entre une date et aujourdhui

Bonjour

Pourriez vous m'indiquer comment obtenir en B1 le nombre de jours ( idéalement ouvrés ) entre une date présente en A1 et AUJOURDHUI() en VBA ?

Je cherche l'équivalent VBA qui s’apparenterait au résultat de ce genre de calcul :

=NB.JOURS.OUVRES(A1;AUJOURDHUI())

Ensuite comment faut il procéder pour que B1 ai un fond de jaune si le décompte de jours est >= 7 jours et devienne rouge si le résultat est >=12 jours ?

Merci beaucoup

Bonsoir,

Tu utilises la fonction Excel en VBA :

    n = WorksheetFunction.NetworkDays(ActiveSheet.Range("A1"), Date)

Pour colorer en fonction de critères : Mise en forme conditionnelle.

Cordialement.

Bonjour,

fais-le par apprentissage ...

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=NETWORKDAYS(RC[-1],TODAY())"

ensuite fais une MFC (mise en forme conditionnelle) avec tes critères

hello MFerrand, j'étais en train de répondre ...