Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" a écrit dans le message de news:Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
evAt4W5KHHA.4912@TK2MSFTNGP02.phx.gbl...
Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" a écrit dans le message de news:Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" a écrit dans le message de news:Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
evAt4W5KHHA.4912@TK2MSFTNGP02.phx.gbl...
Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" a écrit dans le message de news:Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Je t'ai expliqué comment avoir accès direct en VBA aux mêmes fonctions
de la feuille de calcul qui relèvent de la macro complémentaire
"Utilitaire d'analyse" lorsque tu te retrouves dans une fenêtre VBA.
Tu dois charger la bibliothèque correspondante ....
Tu peux visionner la liste complète des fonctions disponibles en utilisant
l'explorateur d'objet de la fenêtre éditeur de code en sélectionnant
à partir de cette fenêtre, dans la liste déroulante
"toutes les bibliothèques" : "atpvbaen.xls"
Et pour avoir la traduction française des noms des fonctions, tu peux
télécharger un fichier d'Alain Vallon à cette adresse :
http://www.excelabo.net/compteclic.php?nom=av-traducfonctions
Si tu as besoin de "l'aide" sur la fonction dans une fenêtre VBA,
tu dois recourir à l'aide que procure la fonction équivalente via
l'interface de la feuille de calcul.
Évidemment, tu auras toujours comme alternative l'usage de
la méthode "Evaluate" de l'objet "Application" et la possibilité
de recréer une fonction qui existe déjà .... c'est ton choix !
" Zakarum92" a écrit dans le message de news:
459648dd$0$21144$
Bonjour Michdenis,
J'ai testé ta solution et ça fonctionne bien, en fait ça remplace la
fonction =NB.JOUR.OUVRE(), ce qui me sera très utile. Mais j'ai également
retenu la solution de JB qui permet d'utiliser la fonction
SERIE.JOUR.OUVRE().
Merci encore une fois de ton aide.
Bonnes fêtes de fin d'années à toi et à tes proches.
Zakarum92
" Zakarum92" a écrit dans le message de news:
4595ac04$0$21143$Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" a écrit dans le message de news:Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même
chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Je t'ai expliqué comment avoir accès direct en VBA aux mêmes fonctions
de la feuille de calcul qui relèvent de la macro complémentaire
"Utilitaire d'analyse" lorsque tu te retrouves dans une fenêtre VBA.
Tu dois charger la bibliothèque correspondante ....
Tu peux visionner la liste complète des fonctions disponibles en utilisant
l'explorateur d'objet de la fenêtre éditeur de code en sélectionnant
à partir de cette fenêtre, dans la liste déroulante
"toutes les bibliothèques" : "atpvbaen.xls"
Et pour avoir la traduction française des noms des fonctions, tu peux
télécharger un fichier d'Alain Vallon à cette adresse :
http://www.excelabo.net/compteclic.php?nom=av-traducfonctions
Si tu as besoin de "l'aide" sur la fonction dans une fenêtre VBA,
tu dois recourir à l'aide que procure la fonction équivalente via
l'interface de la feuille de calcul.
Évidemment, tu auras toujours comme alternative l'usage de
la méthode "Evaluate" de l'objet "Application" et la possibilité
de recréer une fonction qui existe déjà .... c'est ton choix !
" Zakarum92" <zakarum@club-internet.fr> a écrit dans le message de news:
459648dd$0$21144$7a628cd7@news.club-internet.fr...
Bonjour Michdenis,
J'ai testé ta solution et ça fonctionne bien, en fait ça remplace la
fonction =NB.JOUR.OUVRE(), ce qui me sera très utile. Mais j'ai également
retenu la solution de JB qui permet d'utiliser la fonction
SERIE.JOUR.OUVRE().
Merci encore une fois de ton aide.
Bonnes fêtes de fin d'années à toi et à tes proches.
Zakarum92
" Zakarum92" <zakarum@club-internet.fr> a écrit dans le message de news:
4595ac04$0$21143$7a628cd7@news.club-internet.fr...
Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
evAt4W5KHHA.4912@TK2MSFTNGP02.phx.gbl...
Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même
chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
Je t'ai expliqué comment avoir accès direct en VBA aux mêmes fonctions
de la feuille de calcul qui relèvent de la macro complémentaire
"Utilitaire d'analyse" lorsque tu te retrouves dans une fenêtre VBA.
Tu dois charger la bibliothèque correspondante ....
Tu peux visionner la liste complète des fonctions disponibles en utilisant
l'explorateur d'objet de la fenêtre éditeur de code en sélectionnant
à partir de cette fenêtre, dans la liste déroulante
"toutes les bibliothèques" : "atpvbaen.xls"
Et pour avoir la traduction française des noms des fonctions, tu peux
télécharger un fichier d'Alain Vallon à cette adresse :
http://www.excelabo.net/compteclic.php?nom=av-traducfonctions
Si tu as besoin de "l'aide" sur la fonction dans une fenêtre VBA,
tu dois recourir à l'aide que procure la fonction équivalente via
l'interface de la feuille de calcul.
Évidemment, tu auras toujours comme alternative l'usage de
la méthode "Evaluate" de l'objet "Application" et la possibilité
de recréer une fonction qui existe déjà .... c'est ton choix !
" Zakarum92" a écrit dans le message de news:
459648dd$0$21144$
Bonjour Michdenis,
J'ai testé ta solution et ça fonctionne bien, en fait ça remplace la
fonction =NB.JOUR.OUVRE(), ce qui me sera très utile. Mais j'ai également
retenu la solution de JB qui permet d'utiliser la fonction
SERIE.JOUR.OUVRE().
Merci encore une fois de ton aide.
Bonnes fêtes de fin d'années à toi et à tes proches.
Zakarum92
" Zakarum92" a écrit dans le message de news:
4595ac04$0$21143$Merci beaucoup Michdenis
Je teste ça demain et je te tiens au courant
"MichDenis" a écrit dans le message de news:Tu ajoutes la bibliothèque suivante à ton projet :
"atpvbaen.xls"
Pour ce faire :
Barre des menus / outils / références / et tu coches
la dite bibliothèque
Tu peux utiliser ceci :
'---------------------------
Sub test()
Dim a As Integer
Dim StartDate As Date
Dim EndDate As Date
StartDate = CDate("12 déc. 2005")
EndDate = CDate("1 jan. 2007")
a = Networkdays(StartDate, EndDate)
'Si tu as une plage nommé "Fêtes" dans une de tes feuilles où
'tu as définis la liste des congés annuels, tu peux écrire ceci
b = Networkdays(StartDate, EndDate, Range("Fêtes"))
End Sub
'---------------------------
<@club-internet.fr> a écrit dans le message de news:
45958bac$0$21148$
Bonsoir à tous,
Je voudrais savoir si il existe une instuction vba qui fait la même
chose
que la fonction =SERIE.JOUR.OUVRE(date_début;nb_jours;jours_fériés).
Exemple pour la fonction =JOUR360(Date_Debut;Date_Fin) :
J'ai réussi à faire ceci :
Function NbreJrs(Date_Debut As Date_Fin, date2 As Date)
With Application.WorksheetFunction
NbreJrs = .Days360(date1, date2)
End With
End Function
Merci d'avance pour vos réponses.
Bonnes fêtes de fin d'année.
Zakarum92
