DLL DE CALCULS DES JOURS FÉRIÉS ET JOURS OUVRABLES
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
1 mars 2004 à 19:56
aabi
Messages postés1Date d'inscriptionmercredi 14 novembre 2007StatutMembreDernière intervention19 novembre 2007
-
19 nov. 2007 à 16:47
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
aabi
Messages postés1Date d'inscriptionmercredi 14 novembre 2007StatutMembreDernière intervention19 novembre 2007 19 nov. 2007 à 16:47
JE VOUS REMERCIE POUR VOTRE APPLICATION ELLE EST TRES UTILE, MOI JE SUIS ENTRAIN DE PROGRAMMER EN VB UNE APPLICATION QUI CALCULE LA DIFFERENCE ENTRE DEUX DATES TOUT EN EXCLUANT LES DIMANCHES ET LES JOURS FERIES. ALORS PENSEZ VOUS POUVOIR M AIDER MERCI D AVANCE
ibousice
Messages postés2Date d'inscriptionmercredi 21 juin 2006StatutMembreDernière intervention 8 juillet 2006 27 sept. 2006 à 15:43
Bonjour,
j'aimerais lancer la macro ci -dessous automatiquement le dernier jour ouvrable du mois , je ne tiens pas compte des jours fériés.
As tu une idée sur l'évolution à apporter à la macro pour arriver au résultat. la macro se trouve ds la feuille ThisWorbook:
Private Sub Workbook_Open()
If Application.WorksheetFunction.Weekday(Now, 2) < 6 Then
Application.OnTime TimeValue("08:00:00"), "TOTO"
Else
End If
End Sub
Merci d'Avance
harigan
Messages postés1Date d'inscriptionlundi 15 mai 2006StatutMembreDernière intervention24 juin 2006 24 juin 2006 à 21:01
BRAVOOOOOOOOOOOOOOOOOOOOOO c de la génie
foxi78
Messages postés1Date d'inscriptionmardi 2 septembre 2003StatutMembreDernière intervention 4 mars 2004 4 mars 2004 à 09:17
Merci pour ces remarques très constructives.
Je les prend en compte pour la prochaine version.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 1 mars 2004 à 19:56
Salut foxi78
Bravo pour cette DLL : je n'ai pas vérifié les résultats, mais ça peut être partique.
En ce qui concerne le code de l'exemple :
Pour vider une Liste, rien de plu simple que le .Clear
Audacieux le Split(Split()) !! Ca vaut quand même le coup de décomposer.
La définition des paramètres n'est pas claire : Dans Work_Days, tu ajoutes en option "ferie" qui est sencé faire la différence entre Ouvré et Ouvrable : Vaudrait mieux mettre "Ouvré" (ouvré : 5 jours, ouvrable : 6 jours) ... En fait, j'ai vu dans la DLL que tu avais supprimé l'option Ouvré, ce qui explique peut-être ...
Bref : de bonne idées, des manips de date intéressantes et une création de DLL est une bonne idée.
Manque un peu de commentaire et une optimisation.
19 nov. 2007 à 16:47
27 sept. 2006 à 15:43
j'aimerais lancer la macro ci -dessous automatiquement le dernier jour ouvrable du mois , je ne tiens pas compte des jours fériés.
As tu une idée sur l'évolution à apporter à la macro pour arriver au résultat. la macro se trouve ds la feuille ThisWorbook:
Private Sub Workbook_Open()
If Application.WorksheetFunction.Weekday(Now, 2) < 6 Then
Application.OnTime TimeValue("08:00:00"), "TOTO"
Else
End If
End Sub
Merci d'Avance
24 juin 2006 à 21:01
4 mars 2004 à 09:17
Je les prend en compte pour la prochaine version.
1 mars 2004 à 19:56
Bravo pour cette DLL : je n'ai pas vérifié les résultats, mais ça peut être partique.
En ce qui concerne le code de l'exemple :
Pour vider une Liste, rien de plu simple que le .Clear
Audacieux le Split(Split()) !! Ca vaut quand même le coup de décomposer.
La définition des paramètres n'est pas claire : Dans Work_Days, tu ajoutes en option "ferie" qui est sencé faire la différence entre Ouvré et Ouvrable : Vaudrait mieux mettre "Ouvré" (ouvré : 5 jours, ouvrable : 6 jours) ... En fait, j'ai vu dans la DLL que tu avais supprimé l'option Ouvré, ce qui explique peut-être ...
Bref : de bonne idées, des manips de date intéressantes et une création de DLL est une bonne idée.
Manque un peu de commentaire et une optimisation.