Incrémentation des jours ouvrés

Bonjour,

je viens poster un message ici, car je ne trouve pas la solution à mon problème.

J'ai trouvé beaucoup de sujets sur les jours ouvrés en vba, mais pas ce que je cherchais

je ne sais pas comment incrémenter la date de mon 3ème IF, sans compter les jours chomés

DATE + 1 ça ne marche pas, ça garde le samedi et le dimanche

Option Explicit

Dim i, j, m, n, o, p As Integer

Sub FL1()

j = 2

For i = 3 To 5000

If Feuil11.Cells(i, 9) < Date And Feuil11.Cells(i, 14) = "" And Feuil11.Cells(i, 9) <> "" Then

Cells(j, 1) = Feuil11.Cells(i, 9)

Cells(j, 2) = Feuil11.Cells(i, 3)

Cells(j, 3) = Feuil11.Cells(i, 2)

Cells(j, 4) = Feuil11.Cells(i, 4)

Cells(j, 5) = Feuil11.Cells(i, 5)

j = j + 1

End If

If Feuil11.Cells(i, 9) = Date And Feuil11.Cells(i, 14) = "" And Feuil11.Cells(i, 9) <> "" Then

Cells(j, 1) = Feuil11.Cells(i, 9)

Cells(j, 2) = Feuil11.Cells(i, 3)

Cells(j, 3) = Feuil11.Cells(i, 2)

Cells(j, 4) = Feuil11.Cells(i, 4)

Cells(j, 5) = Feuil11.Cells(i, 5)

j = j + 1

End If

If Feuil11.Cells(i, 9) = Date + 1 And Feuil11.Cells(i, 14) = "" And Feuil11.Cells(i, 9) <> "" Then

Cells(j, 1) = Feuil11.Cells(i, 9)

Cells(j, 2) = Feuil11.Cells(i, 3)

Cells(j, 3) = Feuil11.Cells(i, 2)

Cells(j, 4) = Feuil11.Cells(i, 4)

Cells(j, 5) = Feuil11.Cells(i, 5)

j = j + 1

End If

Next

End Sub

merci d'avance pour vos réponses

Bonjour,

désolé je n'ai pas la possibilité de joindre mon fichier, il est trop lourd, j'ai quasiment 10k lignes dans mon tableau et j'ai des données de mon entreprise dessus

les dates que je veux récupérer dans ma feuille ne sont pas saisies donc je ne peux pas sélectionner de cellule pour récupérer les dates