Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir
compte des jours f=E9ri=E9s) ? par exemple le 31/01/2007 la date j+5 mois
+2 est le 07/03/2007.
La macro complémentaire "utilitaire d'analyse" doit être cochée. La plage B1:B10 représente les jours fériés (optionnelle). Cordialement. Daniel "sai sai" a écrit dans le message de news:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois +2 est le 07/03/2007.
La macro complémentaire "utilitaire d'analyse" doit être cochée.
La plage B1:B10 représente les jours fériés (optionnelle).
Cordialement.
Daniel
"sai sai" <sice42@hotmail.com> a écrit dans le message de news:
1171537867.051833.119910@a34g2000cwb.googlegroups.com...
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir
compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois
+2 est le 07/03/2007.
La macro complémentaire "utilitaire d'analyse" doit être cochée. La plage B1:B10 représente les jours fériés (optionnelle). Cordialement. Daniel "sai sai" a écrit dans le message de news:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois +2 est le 07/03/2007.
Merci d'avance
JB
Bonjour,
Function AddSerieJourOuvre(dt, m, j) AddSerieJourOuvre = Evaluate("SERIE.JOUR.OUVRE(""" & DateSerial(Year(dt), Month(d) + m, Day(dt) + j) & """," & 0 & ")") End Function
Sub essai() d = #1/31/2007# MsgBox Format(AddSerieJourOuvre(d, 2, 5), "ddd dd mmm yy") End Sub
Cette fonction est ègalement utilisable dans le tableur( dSerieJourOuvre(A1;2;5)
Cordialement JB
On 15 fév, 12:11, "sai sai" wrote:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois +2 est le 07/03/2007.
Merci d'avance
Bonjour,
Function AddSerieJourOuvre(dt, m, j)
AddSerieJourOuvre = Evaluate("SERIE.JOUR.OUVRE(""" &
DateSerial(Year(dt), Month(d) + m, Day(dt) + j) & """," & 0 & ")")
End Function
Sub essai()
d = #1/31/2007#
MsgBox Format(AddSerieJourOuvre(d, 2, 5), "ddd dd mmm yy")
End Sub
Cette fonction est ègalement utilisable dans le
tableur( =AddSerieJourOuvre(A1;2;5)
Cordialement JB
On 15 fév, 12:11, "sai sai" <sic...@hotmail.com> wrote:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir
compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois
+2 est le 07/03/2007.
Function AddSerieJourOuvre(dt, m, j) AddSerieJourOuvre = Evaluate("SERIE.JOUR.OUVRE(""" & DateSerial(Year(dt), Month(d) + m, Day(dt) + j) & """," & 0 & ")") End Function
Sub essai() d = #1/31/2007# MsgBox Format(AddSerieJourOuvre(d, 2, 5), "ddd dd mmm yy") End Sub
Cette fonction est ègalement utilisable dans le tableur( dSerieJourOuvre(A1;2;5)
Cordialement JB
On 15 fév, 12:11, "sai sai" wrote:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois +2 est le 07/03/2007.
Merci d'avance
MichDenis
Juste une petite remarque : d = #1/31/2007# Quand on utilise ce type de syntaxe, et qu'elle est écrite dans une feuille de code VBA, Excel interprète cette date comme étant au format Mois/Jour/Année... ceci peut jouer de drôle de tour si on saisit : #7/6/2007# , il faut être conscient qu'excel comprend : 6 juillet 2007 et non le 7 juin 2007
"JB" a écrit dans le message de news:
Bonjour,
Function AddSerieJourOuvre(dt, m, j) AddSerieJourOuvre = Evaluate("SERIE.JOUR.OUVRE(""" & DateSerial(Year(dt), Month(d) + m, Day(dt) + j) & """," & 0 & ")") End Function
Sub essai() d = #1/31/2007# MsgBox Format(AddSerieJourOuvre(d, 2, 5), "ddd dd mmm yy") End Sub
Cette fonction est ègalement utilisable dans le tableur( dSerieJourOuvre(A1;2;5)
Cordialement JB
On 15 fév, 12:11, "sai sai" wrote:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois +2 est le 07/03/2007.
Merci d'avance
Juste une petite remarque :
d = #1/31/2007#
Quand on utilise ce type de syntaxe, et qu'elle est écrite dans
une feuille de code VBA, Excel interprète cette date comme
étant au format Mois/Jour/Année... ceci peut jouer de drôle
de tour si on saisit : #7/6/2007# , il faut être conscient qu'excel
comprend : 6 juillet 2007 et non le 7 juin 2007
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1171553578.075451.263930@v45g2000cwv.googlegroups.com...
Bonjour,
Function AddSerieJourOuvre(dt, m, j)
AddSerieJourOuvre = Evaluate("SERIE.JOUR.OUVRE(""" &
DateSerial(Year(dt), Month(d) + m, Day(dt) + j) & """," & 0 & ")")
End Function
Sub essai()
d = #1/31/2007#
MsgBox Format(AddSerieJourOuvre(d, 2, 5), "ddd dd mmm yy")
End Sub
Cette fonction est ègalement utilisable dans le
tableur( dSerieJourOuvre(A1;2;5)
Cordialement JB
On 15 fév, 12:11, "sai sai" <sic...@hotmail.com> wrote:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir
compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois
+2 est le 07/03/2007.
Juste une petite remarque : d = #1/31/2007# Quand on utilise ce type de syntaxe, et qu'elle est écrite dans une feuille de code VBA, Excel interprète cette date comme étant au format Mois/Jour/Année... ceci peut jouer de drôle de tour si on saisit : #7/6/2007# , il faut être conscient qu'excel comprend : 6 juillet 2007 et non le 7 juin 2007
"JB" a écrit dans le message de news:
Bonjour,
Function AddSerieJourOuvre(dt, m, j) AddSerieJourOuvre = Evaluate("SERIE.JOUR.OUVRE(""" & DateSerial(Year(dt), Month(d) + m, Day(dt) + j) & """," & 0 & ")") End Function
Sub essai() d = #1/31/2007# MsgBox Format(AddSerieJourOuvre(d, 2, 5), "ddd dd mmm yy") End Sub
Cette fonction est ègalement utilisable dans le tableur( dSerieJourOuvre(A1;2;5)
Cordialement JB
On 15 fév, 12:11, "sai sai" wrote:
Bonjour,
Comment obtenir la date j+5 ouvrable,mois +2 avec VBA (sans tenir compte des jours fériés) ? par exemple le 31/01/2007 la date j+5 mois +2 est le 07/03/2007.
