Discussion :

[CALOU3117]

Bonjour,

Je souhaiterais créer un planning dans lequel est associé en fonction de la date du jour une personne. Le but est de faire apparaitre sur mon formulaire en fonction de la date du jour la personne qui doit lancer une requête chaque jour.

Pour cela, je voudrai en lancant une requête ou tout autre moyen alimenter les dates d'un mois que l'on aura renseigné via une boite de dialogue et où il suffira de renseigner le gestionnaire sur chaque jour. Chaque mois, en lancant cette requête, cela devra être remis à zéro pour alimenter un nouveau mois.

J'ai déjà une table avec une entête colonne "date du jour" et une autre entête colonne "Gestionnaire"

Merci par avance pour votre aide

Bien cordialement

[User]

Bonsoir,

Ce type de demande revient assez souvent.

Je pense que si vous souhaitez afficher tous les jours du mois, y compris ceux non encore attribués, il vous faut créer une procédure qui génère ces jours dans une table calendrier comme expliqué dans cette discussion :

https://www.developpez.net/forums/d9...es-intervalle/

Comme cela vous avez une vision mensuelle des attributions, et vous videz la table et regénérez les jours en début de mois.

Une autre possibilité sans code VBA et avec une table d'indices, au lieu d'une table calendrier :

https://www.developpez.net/forums/d7...registrements/

Ensuite, pour connaitre le nom de la personne gestionnaire pour aujourd'hui, il suffit d'utiliser une requête basée sur la table, avec un critère sous la date :

= Date()

Cdlt,

[CALOU3117]

Bonjour,

Désolé pour la réponse tardive.

J'ai pris comme option de créer une requête avec le code VBA ci-dessous qui me demande de renseigner l'année et le mois.

Code :

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

1
2
SELECT TJOURS.LADATE
FROM (SELECT TOP 31 DATESERIAL(ANNEE,MOIS,ID1 & ID2) AS LADATE FROM (SELECT TOP 4 (SELECT Count(ID) FROM MSysObjects TA WHERE TA.ID<TA1.ID) AS ID1 FROM MSysObjects AS TA1 ORDER BY ID)  AS T1, (SELECT TOP 10 (SELECT Count(ID) FROM MSysObjects TA WHERE TA.ID<TA1.ID) AS ID2 FROM MSysObjects AS TA1 ORDER BY ID)  AS T2 WHERE Month(DATESERIAL(ANNEE,MOIS,ID1 & ID2))=MOIS ORDER BY ID1 & ID2)  AS TJOURS;

Cela crée tous les jours du mois

Par contre, je rencontre une difficulté pour renseigner une gestionnaire différente chaque jour. J'ai créé un formulaire où j'ai mis le champ "ladate" issu de la requête précédente et j'ai mis un champ avec liste déroulante que je récupère depuis une autre requête où j'ai les noms de tous les gestionnaires.

Le souci c'est que lorsque j'ouvre le formulaire en mode feuille de données, après avoir renseigné l'année et le mois, dans la colonne où se trouve le menu déroulant avec les gestionnaires, lorsque je sélectionne un gestionnaire, il le répercute sur toutes les dates du mois. Je ne peux pas sélectionner le gestionnaire que je souhaite pour chaque jour.

Merci pour votre aide

Bien cordialement

[User]

Bonjour,

Il faudrait d'abord créer une table affectation ou attribution comportant la date et l'identifiant du gestionnaire affecté à cette date, avec aussi un identifiant propre à cette table (numéro-auto..).

Cette table permettra d'enregistrer les attributions.

L'idée sera ensuite de la relier à votre requête avec une jointure gauche sur le champ date entre la requête calendrier et cette table.

Cdlt,