Discussion :

[Eric_03]

Bonjour,

Je travaille dans une direction départementale au sein d’un service comptabilité. Nous centralisons toutes les opérations comptables des services départementaux. Plusieurs applications sont utilisées dans ces services. Toutes les écritures des agences sont consolidées au sein d’une application nationale. Cette application est enrichie par plusieurs autres applications (application dite remettante) et par la prise en charge d’écritures manuelles. Notre travail consiste, entre autre, à contrôler que toutes les écritures soient correctement remontées dans l’application nationale. Actuellement, ce travail de contrôle est effectué manuellement.

Je souhaiterai pouvoir automatiser ces contrôles.

Je dispose pour cela de divers états sous différents formats (pdf, csv, excel) que j’importe dans plusieurs tables Access.

L’application nationale distingue les applications remettantes et les opérations manuelles par un code flux.

Je viens de suivre le tutoriel Processus de calcul de statistiques dynamiques sur des périodes mobiles de «*Jean-Damien GAYOT*». Grace à celui-ci, il me semble possible d’automatiser les contrôles qui doivent être effectués.

Je voudrai comparer les tables des applications remettantes avec la table de l’application réceptrice avec tous les comptes dans un état. Cet état ferait ressortir les anomalies ou la correspondance entre les différents comptes des montants cumulés.

Pouvez vous SVP m’aiguiller sur la requête et l’état à concevoir en VBA?

Merci

[Eric_03]

Bonsoir,

J'ai essayé d'adapter le code de "Jean Damien GAYOT" sans succès.

Aucune erreur n'apparait mais aucun résultat non plus

Il me semble qu'il y ait déjà une erreur dans la création de la requête en effet lorsque que je la consulte (après avoir cliqué sur le bouton table temporaire) en mode création la date indiquée est #18/11/2018# au lieu de #01/11/2018#??

Pouvez vous SVP regarder ma base et m'indiquer mes erreurs.

Merci
Eric

[Eric_03]

Bonsoir,

Une erreur de résolue: mon champ "Specification" était déclaré en numérique alors qu'il s'agissait d'un champ texte. Il me reste maintenant le problème de date à résoudre dans la création de ma requête. En effet la mise à jour de la requête met le 18/11/2018 au lieu du 01/11/2018.

deuxième erreur résolue j'ai ajouté

Code :

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

1
2
3
4
 
        DateRef = DateAdd("m", -NbMois, Form_Frm_ControleDesComptes.Cbo_MoisRef.Value)
=>        DateRef = DateSerial(Year(DateRef), Month(DateRef), 1)
        MoisCritere = DateAdd("m", i, DateRef)

Eric