Jour ouvrable vba

Bonjour à tous

j'ai un fichier excel avec une date au format dd.mm.yyyy et je voudrais que si la date tombe sur un samedi ou un dimanche, il soit automatiquement modifié au vendredi précédent.

en gros si ça tombe sur le 30.10.2010, il affiche 29.10.2010

Si quelqu'un pouvait m'aider

a++

Lord Sinclair

Salut,

en jetant un oeil dans la :faq: on trouve cette fonction:
http://access.developpez.com/faq/?pa...NbJourSsFeries
en l'utilisant dans une autre fonction perso, tu peux arriver a quelque chose :)

algorithme de l'idee

Code:

---

1 2 3 4 5

Fonction PrecedentJourOuvre(dt date) Tant que EstFerie(dt) dt = dt-1 Fin Tant que PrecedentJourOuvre = dt

---

Merci pour ta réponse.

Je suis pas expert hein mais il me semble que le code que tu proposes ne tient compte que des jours fériés, ce qui est bien, mais ne tient pas compte des week-end, ce qui est moins bien...

right?

Exact,
et on tombe juste au dessus sur la solution
http://access.developpez.com/faq/?pa...#NumJourSmaine

donc si j'utilise l'enregistreur de macro en entrant cette formule j'ai juste?
(mis à part pour les jours fériés, ça me semble trop compliqué de les intégrer)

Code:

---

=SI(JOURSEM(B7;2)=6;B7-1;SI(JOURSEM(B7;2)=7;B7-2;B7))

---

Si tu preferes mettre des formules, ca marche aussi. Vu que tu posais ta question cote VBA, j'ai propose cela en premier :mrgreen: