Date + jours ouvrés (Networkdays)

R

rudymagny

XLDnaute Occasionnel

• 11 Février 2011

• #2

Re : Date + jours ouvrés (Networkdays)

J'ai essayé mais je pense que je me débrouille mal :

Code:

Dim date_butoire As Date
Dim date_jour As Date

date_jour = TextBox6.Value
nb_jr_ouvre = ComboBox4.Value

    date_butoire = WorkDay(date_jour, nb_jour_ouvre)
    TextBox7.Value = date_butoire
 end sub

...

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 11 Février 2011

• #3

Re : Date + jours ouvrés (Networkdays)

Bonsoir RudyMagny 🙂,
La bonne syntaxe serait

Code:

date_butoire = Application.WorksheetFunction.WorkDay(date_jour, nb_jour_ouvre)

Maintenant, avec dates provenant de ComboBox et de TextBox, méfiance 🙄...
Bon courage 😎

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 11 Février 2011

• #4

Re : Date + jours ouvrés (Networkdays)

Bonsoir JNP et merci pour ta réponse,

tu as raison sur le attention :

date_jour = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
nb_jr_ouvre = ComboBox4.Value

date_butoire = Format(Application.WorksheetFunction.WorkDay(date_jour, nb_jour_ouvre), dd / mm / yy)

TextBox7.Value = date_butoire

End Sub

et je suis en dépassement de capacité

je cherche

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 12 Février 2011

• #5

Re : Date + jours ouvrés (Networkdays)

Bonjour à tous

Chez moi (EXCEL 2003), ceci fonctionne parfaitement, à condition d'intéger la référence au classeur de macros complémentaires ATPVBAEN.XLA :

Code:

TextBox7.Value = CDate(workday(TextBox6.Value, ComboBox4.Value))

L'appel à

Code:

Application.WorksheetFunction.WorkDay(date_jour, nb_jour_ouvre)

échoue car WorkDay n'appartient pas à la classe WorksheetFunction de la bibliothèque Excel.

Il y a donc une énorme différence entre EXCEL 2007/2010 et EXCEL 2003 !
Merci à JNP d'avoir attiré notre attention sur ce problème. Ne disposant pas d'EXCEL 2007, je ne pouvais le savoir. Désormais, par souci de compatibilité, je n'utiliserai plus la référence à ATPVBAEN.XLA.
​

ROGER2327
#4948

Mercredi 18 Gueules 138 (Nativité de Deibler, prestidigitateur, SQ)
24 Pluviôse An CCXIX
2011-W06-6T00:42:53Z

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 12 Février 2011

• #6

Re : Date + jours ouvrés (Networkdays)

Bonjour 🙂,
Assez subtilement, sous 2010

Code:

TextBox7.Value = CDate(workday(TextBox6.Value, ComboBox4.Value))

ne fonctionne pas, même avec ATPVBAEN.XLA activé 😕...
Par contre, je vous propose, Roger, en pièce jointe la liste des WorkSheetFunction disponible sous 2010 (tiré de l'aide). Il peut effectivement être intéressant de connaître la compatibilité 😉.
Bon WE 😎

 

Pièces jointes

• Liste WorkSheetFunction 2010.xls

  41 KB · Affichages: 126

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 12 Février 2011

• #7

Re : Date + jours ouvrés (Networkdays)

Bonjour à tous et merci beaucoup pour vos réponses..
A chaque version d'excel ses particularités 🙂

Voici ce qui marche chez moi :

Code:

        date_jour = TextBox6.Value
        nb_jr_ouvre = ComboBox4.Value
        TextBox7.Value = CDate(Application.WorksheetFunction.WorkDay(date_jour, nb_jr_ouvre))

Merci encore

 

Vote positif 0 Vote négatif