Discussion :

[MaelF]

Bonjour,

Je souhaiterais par une macro VBA, car je ne pense pas que l'on puisse le faire avec une requête (Si c'est possible dite le moi), incrémenter une date sans prendre en compte les weekend et jours fériés. Toutes les dates exclus sont regroupées dans une table.

Pour cela, j'aimerais dans une table à partir du champ date, pouvoir à cette date incrémenter un nombre de jour de travail (jour ouvré). c'est à dire je ne tiens pas compte des weekends, des jours fériés ainsi que des dates dite de "non travail" que je considère comme "fériés", j'ai donc créé une table : "Vacances" cette table regroupe toutes les dates à ne pas prendre en compte.

L'idée est de pouvoir pour une "Date" dite quelconque ajouter un certain "Nombre de jour de travail" dans un autre champ dit "Date de fin de tache attendu"

Exemple:

Date
Mercredi 5 Octobre 2016

Nombre de jour de travail
7

Date de fin de tache attendu
Jeudi 13 Octobre 2016

Je fais appel à vous car je ne sais pas comment m'y prendre

Cordialement

MaelF

[User]

Bonjour,

L'idée c'est d'utiliser une fonction qui va tester dans la table Vacances si le jour passé en argument est présent :

Code :

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

1
2
3
Function JourVac(DateJour As Date) as boolean
   JourVac=Not IsNull(DLookup("Jour","Vacances","Jour=#" & Format(DateJour,"mm/dd/yyyy") & "#"))
end function

* Ici je suppose que la table Vacances possède un champ Jour de format Date/Heure.

Ensuite, il faut déterminer la date finale en fonction du nombre de jours ouvrés, en parcourant une boucle, en incrémentant la date et en testant à chaque passage si la date est un jour ouvré:

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
Function AjoutDate(dt as Date, nbJoursOuvres as long) as date
 
Do while (nbJoursOuvres>0)
 
dt=dt+1
 
   if Not (EstVac(dt)) then
      nbJoursOuvres=nbJoursOuvres-1
   end if
 
Loop
 
AjoutDate=dt
 
end function

Cdlt,

[ClaudeLELOUP]

Bonjour MaelF, bonjour Denis,

Une proposition décrite ici : http://claudeleloup.developpez.com/t...plic-ploc/#LIV

avec quelques applications pratiques.

[MaelF]

Merci Claude,

Je pense que ça va pas mal m'aider merci beaucoup !

MaelF

[MaelF]

Bonjour,
J'ai utilisé ce code VBA qui m'est très pratique voir ci-dessous

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
17
Public Function Echeance(DateDebut As Date, NbreJrs As Integer) As Date
 'Renvoie la date ouvrable qui vient après le nombre de jours (qui peut être négatif)
 'DateDebut sous la forme anglo-saxonne
 'Si cette DateDebut n'existe pas dans la table, la fonction renvoie 00:00:00
 
  Dim rst As Recordset
  Set rst = CurrentDb.OpenRecordset("SELECT JoursOuvres FROM tJoursOuvres ORDER BY JoursOuvres;")
  Do While Not rst.EOF
    If rst("JoursOuvres") = DateDebut Then
        rst.Move NbreJrs
        Echeance = rst("JoursOuvres")
        Exit Function
      Else
        rst.MoveNext
    End If
  Loop
End Function

Cependant si la date de début dite dateDebut n'est pas dans la table, la fonction renvoie 00:00:00 comme expliqué dans le commentaire.

J'aimerai quand même pourvoir renvoyer une date mais je ne vois pas comment.

Ma dateDebut est un jour de vacances, mais je souhaiterais quand même incrémenter dessus en phase avec ma table tJoursOuvres

Avez-vous une solution?

MaelF

[ClaudeLELOUP]

Bonjour,

Ceci devrait mieux te convenir :

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
17
18
19
20
21
22
23
24
25
Option Compare Database
Option Explicit
 
Public Function EcheanceModifiee(DateDebut As Date, NbreJrs As Integer) As Date
 'Renvoie la date ouvrable qui vient après le nombre de jour
 'DateDebut sous la forme anglo-saxonne
 'Si cette DateDebut n'existe pas dans la table, on remplace DateDebut par le 1er jour ouvrable qui suit
 
  Dim rst As Recordset
  'début ouvrable ?
  If DCount("JoursOuvres", "tJoursOuvres", "JoursOuvres=#" & Format(DateDebut, "mm/dd/yyyy") & "#") = 0 Then
     DateDebut = DMin("JoursOuvres", "tJoursOuvres", "JoursOuvres>#" & Format(DateDebut, "mm/dd/yyyy") & "#")
  End If
 
  Set rst = CurrentDb.OpenRecordset("tJoursOuvres")
  Do While Not rst.EOF
    If rst("JoursOuvres") = DateDebut Then
        rst.Move NbreJrs
        EcheanceModifiee = rst("JoursOuvres")
        Exit Function
      Else
        rst.MoveNext
    End If
  Loop
End Function

	N.B. Quand tu postes du code, tu dois l'insérer dans les balises ! http://dolphy35.developpez.com/images/Balises.gif

[MaelF]

Bonjour,

Oups dsl !!

Merci beaucoup ça fonctionne.

Une dernière chose,

Par cette manipe il prend en compte la date de début sous forme anglo-saxonne "mm"/"jj"/"aaaa" et la restitue en date "jj"/"mm"/"aaaa"

Y a-t-il un moyen de pallier cela, c'est-à-dire garder toujours le même format qui est de type "jj"/"mm"/"aaaa"

Date de début
ex : 01/12/16 --> 01 décembre 2016

Date restituée après incrémentation
ex : 10/02/17 --> 10 février 2016

Cordialement

MaelF

[ClaudeLELOUP]

Cela dépend du contexte.


Tu veux dire dans un formulaire ?

[MaelF]

Non directement dans ma table,

Je souhaiterais traiter (c'est-à-dire selectionner mon champ dateDebut dans la fonction EcheanceModifiee au format "dd"/"mm"/"aaaa") et retranscrire la date au format "dd"/"mm"/"aaaa" dans mon champ date dans lequel j'aurais incrémenté le NbreJrs

Je ne sais pas si je suis clair...

MaelF

[ClaudeLELOUP]

Bonjour,

N.B. il y avait une erreur dans le code proposé dans mon billet N° 6. C'est maintenant corrigé !

Voici un exemple d'utilisation :

[MaelF]

Bonjour Claude,

Un grand merci !!

Ca semble fonctionner

Je vais l'utiliser en mode testeur fou et si je vois des problèmes je reviendrais vers vous

Cordialement

MaelF

[Nono945]

Bonjour à tous,

Je me permets de déterrer ce post car je rencontre exactement la même problématique.
Je suis plutôt novice et je rencontre le même cas de figure que MaelF, à savoir la fonction renvoie "00:00:00", à la différence près que mon champ date de départ est systématiquement renseigné.
J'ai scrupuleusement suivi le mode opératoire de ClaudeLELOUP, et je l'en remercie énormément pour la clarté de ses explications, mais là je ne comprends pas d'où vient le soucis.
Peut-être cela provient-il du format de cellule de la colonne "DateDepart", mais tout ce que j'ai pu essayer n'a pas fonctionné
Ci-dessous les captures d'écran si cela peut aider.




Merci par avance pour l'aide qui pourrait m'être apportée

[ClaudeLELOUP]

Bonjour Nono945 et bienvenue de ce côté.

Pour t'aider j'aurais besoin de ta table.

Cependant je ne dispose que d'Access 2000.

Peux-tu poster une db format 2000 (*.mdb) ?

[Nono945]

Bonjour ClaudeLELOUP,

Merci pour votre réponse si rapide.
Malheureusement, il semblerait que ma base ne puisse être convertie au format demandé car j'obtiens le message d'erreur ci-dessous

[hyperion13]

Salut Claude
J'ai quelques minutes devant moi, si tu veux je peux récupérer la bdd au format accdb et la convertir en mdb, si Nono est d'accord
EDIT 13:21

Code :

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

Date jalon : Echeance(Format(DATE SOUCRIMPTION PDV];"jj/mm/aaaa hh:nn:ss");[NbreJrs]+1)

[ClaudeLELOUP]

Espérons qu'un autre forumeur, plus moderne prendra le relai...

Bonne continuation.

[ClaudeLELOUP]

Bonjour hyperion,

Tu as posté pendant que je rédigeais...

Bien volontiers, en fait je crois qu'une db avec les tables en jeu suffirait.

[Nono945]

Bonjour Hyperion,

Un immense merci à vous 2.
Voici la base de données

[hyperion13]

Pouvez-vous convertir la tbl DIMO V2 en tbl locale svp car je ne peux pas lire votre qry 1_req_portail_souscription

[Nono945]

Hyperion,

C'est fait; Merci encore