Nombre de jours ouvrés dans le mois en cours

Bonjour à tous,

Galérant sur un sujet, je requiers votre aide.

Voilà mon soucis :

Je souhaiterai réaliser (en VBA de préférence) un code qui à chaque fois lancé, compte le nombre de jours ouvré dans le mois en cours.

Si je lance la macro en septembre 2019, il calcule le nombre de jour ouvré du mois de septembre ;

Si la macro est lancée en Octrobre : ...

etc

Merci beaucoup par avance,

Bien cordialement,

Valentin.

Bonjour,

Pour le principe !...

Ne prends pas en compte les fériés.

Public Sub CountWordays()
Dim dt As Date, dt2 As Date
    dt = DateSerial(Year(Date), Month(Date), 1)
    dt2 = WorksheetFunction.EoMonth(dt, 0)
    MsgBox "nombre jours : " & WorksheetFunction.NetworkDays(dt, dt2), 64, "Jours ouvr?s"
End Sub

Bonjour,

Une proposition différente, résultat dans la cellule "A1"

Sub JOuvrés()

With Range("A1")
    .FormulaR1C1 = _
        "=NETWORKDAYS(EOMONTH(TODAY(),-1)+1,EOMONTH(TODAY(),0))&"" Jours Ouvrés"""
    .Value = .Value
End With

End Sub

Comme Jean-Eric, ne prends pas en compte les jours fériés.

Cordialement.

Bonjour Doui0101, mdo, Jean-Eric

Doui0101 a écrit :

Je souhaiterai réaliser (en VBA de préférence) un code qui à chaque fois lancé, compte le nombre de jours ouvré dans le mois en cours.

Si je lance la macro en septembre 2019, il calcule le nombre de jour ouvré du mois de septembre ;

Pourquoi en macro ?

A toutes fins utiles ...

en A1 = date d'aujourdhui

=NB.JOURS.OUVRES(FIN.MOIS(A1;-1)+1;FIN.MOIS(A1;0))

On peut facilement y ajouter les jours fériés.

edit : je m’aperçois qu'il s'agit en fait de la même formule que mdo !

Bonjour Steelson,

Je voulais faire ma p'tite démonstration par macro puisque c'était la volonté de Doui0101, mais c'est vrai que ce n'est pas très probant vu côté utile.

@ Doui0101, dans le fichier joint, j'ai ajouté une feuille "Fériés" ce qui serait logique pour connaître les jours ouvrés sans les fériés.

Sans macro, la formule en "A1"

=NB.JOURS.OUVRES(FIN.MOIS(AUJOURDHUI();-1)+1;FIN.MOIS(AUJOURDHUI();0);Fériés)&" Jours Ouvrés"

Cdlt.

Super merci vous pour votre réactivité !

J'ai retenu la proposition de Jean-Eric qui fait tout en VBA.

Merci à vous !

Je souhaite le faire en macro car cela doit s'intégrer dans une macro bien plus vaste.

J'ai peur qu'en bidouillant les cellules de mes classeurs cela rende des erreurs =).

Pas de soucis.

Tout ce que vous avez toujours voulu savoir (sans jamais oser le demander)