Problème avec jours fériés

[David]

Bonjour le forum,

Une petite question toute simple mais qui m'embarrase un peu :
Tout d'abord, explication :

Voilà, j'ai crée une macro qui m'importe des données provenant de plusieurs classeurs différents et me crée automatiquement une feuille.
J'ai dans ce fichier une feuille "Menu Général" dans laquelle s'ajoute automatiquement un lien sur la dernière feuille créee.Tout cela ne pose pas de problème, mais c'était juste pour vous expliquer ce qu'il en était.
Les données importées ont pour source jour-1(bien évidemment sans les samedis et dimanches)
J'ai, dans une autre feuille répertorié des jours fériés et ou non travaillés(remplissage manuel).Le format est : jj/mm;
Mon petit bout de code est entre autres :

Private Sub btnCreerF_Click()
Dim WS As Worksheet
Dim TheDay As Date
Dim TheFeuille As String
Dim L As Long
Dim i As Long
Dim C As Byte

TheDay = Date
Select Case Weekday(TheDay, vbMonday)
Case 6: TheDay = TheDay - 1
Case 7: TheDay = TheDay - 2
End Select
TheFeuille = Format(TheDay, "dd mmm")
Ma question est la suivante :

Quel est donc le petit supplément de code qui va pouvoir analyser en plus les données de la feuille2 nommée jours fériés (plage : zone en cours )pour savoir si cela correspond à un jours fériés et ou non travaillé et donc, m'enlever un jour de plus
Me suis-je bien fait comprendre ?
Je l'espère et par avance merci de votre aide.

 

[Duriz]

Salut David et les autres,

Il y a un fichier excel que tu peut télécharger dans ce site :

- Clic sur "Télécharger"
- A gauche tu sélectionnes "Planing et cal."
- Puis dans les pages tu cherches " Calcul jours ferie"

C'est un Function qui renvois le nom du jour férié en testant une date.
L'accès au code est libre tu peut donc l'adapter à ton appli.

Voilà si tu as des pb avec ce fichier, continu le fil j'essayerais de le suivre...

A+,

Duriz

 

[David]

Salut Duriz?

Eh bien je te remercie, je ne connaissais pas, j'ai regardé rapidement le contenu de télécharger, mais je pense que je vais trouver ce que je veux dans la manipulation de dates.
A + et merci encore.