Discussion :

[Kedash]

Bonjour à tous,

j'ai bien tenté de trouver sur le net comment utiliser les jours ouvrables en VBA mais tout ce que je trouve ce sont des codes pour compter le nombre de jours ouvrés entre deux dates, ce qui n'est pas ce que je recherche.

Je travaille actuellement sur une macro permettant de mettre une condition sur le jour ouvrable+2.
Par exemple si l'on est jeudi, j'aimerai faire quelque chose comme :

If (Cells(I, 3) = Date + 2) And (Cells(I, 4) <> "") Then...

Mais le problême avec ce code c'est qu'il testera la date du samedi, et non du lundi.

Any ideas?

Merci d'avance!

[Daniel.C]

Bonjour,

Tu peux utiliser l'équivalent de la fonction Excel SERIE.JOUR.OUVRE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Var = Application.WorkDay(Date, 2)

renvoie la date correspondant à la date d'aujourd'hui + 2 jours ouvrés.

[Invité]

Bonjour,

Tu peux utiliser l'équivalent de la fonction Excel SERIE.JOUR.OUVRE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Var = Application.WorkDay(Date, 2)

renvoie la date correspondant à la date d'aujourd'hui + 2 jours ouvrés.

Bien

[Kedash]

Bonjour,

Tu peux utiliser l'équivalent de la fonction Excel SERIE.JOUR.OUVRE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Var = Application.WorkDay(Date, 2)

renvoie la date correspondant à la date d'aujourd'hui + 2 jours ouvrés.

Bien

Merci beaucoup ca marche du tonnerre !

[Invité]

tout le mérite revient à Daniel.C ça méthode est vraiment bien.

[Daniel.C]

rdurupt :

Ta solution est plus souple et peut s'adapter à tous les cas, notamment pour les pays où le week-end est le vendredi et le samedi.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Debug.Print Format(Mydate(3), "dddd dd/mm/yyyy")
End Sub
 
Public Function Mydate(intreval As Integer) As Date
Dim jours
jours = Array(0, 0, 1, 1, 1, 1, 1, 0)
Dim I As Long
Dim r As Integer
r = 0
While r = 0
        Mydate = date + intreval + I,
        r = jours(Weekday(date + intreval + I))
    I = I + 1
Wend
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Cells(I, 3) =Mydate( 2)) And (Cells(I, 4) <> "") Then...