Modification de code VBA pour insertion de données dans un fichier

Version imprimable

Bonjour,

J'aurais besoin d'aide pour un code VBA à modifier (je précise qu'en fait je ne connais pas VBA... !)

J'ai 2 fichiers Access, l'un est un formulaire de commande qui envoie des données dans l'autre.
C'est à dire:
Lorsqu'une commande est passée dans le fichier A, une nouvelle table est créée dans le Fichier B, avec les informations de cette commande. Le fichier B est donc construit de telle manière que chaque jour est incrémenté d'une nouvelle table par commande.

Mon problème est que je dois centraliser ces données pour faire des stats. Je voudrais donc créer une table "Synthèse" dans le fichier B, et changer le code VBA du fichier A qui envoie les infos pour que les infos qui m'interessent soient directement envoyées dans la table synthèse du fichier B.

Quelqu'un aurait il les compétences et la motivation pourme filer un coup de main là dessus??

voici le code (j'ai enlevé le nom du fichier car info confidentielle):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function ExportStats() Dim FichierBDstats As String Dim nomTable As String Dim VotreUA As String FichierBDstats = XXXXX VotreUA = Forms![Sélection programme opératoire].Modifiable0 nomTable = VotreUA & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-nn-ss") DoCmd.TransferDatabase acExport, "Microsoft Access", FichierBDstats, acTable, "Statut Besoins Boites J+1", nomTable End Function
Merci pour vos réponses!!

11/10/2017, 21h10
marot_r
Bonjour.

Je te suggère de supprimer les tables journalières et de ne garder que la table de synthèse.
Pour avoir les commandes d'une journée en particulier il suffit de faire une requête de sélection avec un critère sur la journée.

Elle ressemblerai à :

tblCommande:

ClefCommande (Numéro automatique attribué par le système)
NoCommande (Le numéro de ta commande actuellement)
DateCommande (La date du jour de la création de la commande, évite d'avoir une table par jour)
Les autres informations de ta table actuelle des commande

Pour l'alimenter le plus simple est de faire une table liée dans ta BD A et d'utiliser une requête d'ajout à la place du transfert.

Au niveau du code cela donnerai quelque chose du genre :
Code:

1 2 3 dim db as dao.database: set db=currentdb call db.execute("NomTaRequeteAjout", dbfailOnError) db.close: set db=nothing
En fait je ne saisi pas pourquoi vous avez procédé ainsi.
À priori, un simple formulaire sur la table des commandes liée dans la table A ferait le travail directement et sans une seule ligne de code.

A+
12/10/2017, 16h19
CleoSte

merci pour la réponse!

Merci pour la réponse....

Malheureusement je ne comprends pas tout :(

Ce n'est pas moi qui ai construit le fichier et je reprends donc "le bébé" en cours de route... et effectivement ces tables qui s'incrémentent chaque jour m'embêtent bien.

Je ne vois pas où mettre la requête "ajout". Car en fait je ne veux pas filtrer sur une journée en particulier, mais plutôt construire une BDD avec certaines infos.

Cela dit, je peux aussi envisager de repartir de 0, et créer un nouveaux code pour alimenter ma table synthèse avec les infos voulues.

Auriez vous un code pour alimenter cette table "synthèse", avec en colonne, les infos suivantes:
- Date (jour de commande, validé par l'envoi du formulaire)
- "UA" (numéro de l'utilisateur qui passe la commande, numérique)
- Boites (texte, nom de la ligne de commande)
- Selectionne (numérique, la boite est commandée si valeur = "-1")

Merci beaucoup!
12/10/2017, 16h42
marot_r

Bonjour.

Citation:

Ce n'est pas moi qui ai construit le fichier et je reprends donc "le bébé" en cours de route... et effectivement ces tables qui s'incrémentent chaque jour m'embêtent bien.

Tu es victime d'un conception "à la Excel" de ta BD. La table de synthèse est une opportunité pour revenir à une conception mieux adaptée à Access.

À priori, ta table de synthèse devrait contenir les même champs (colonnes) que ta table quotidienne.
Pourrais-tu poster la structure de ta table quotidienne, cela aidera à faire des suggestions plus claires.

Pour info, la requête ajout est une requête à créer dans ta base A, puis a appeler dans le code.

A+
16/10/2017, 10h28
CleoSte

Structure table

Bonjour,

Merci pour la réponse.

Oui, bien sur, la structure de la table est la suivante:

le fichier contient 13 colonnes: Rang / UA / Boites / Libellés boites
/ Code panier / Selectionne / Statut / Spécialite / N° / Armoire Sale
/ NoCycleLaveur / Dernière modification / Statut priorité / Tri

Je pense que ces colonnes reprennent les différentes infos envoyées
par le formulaire. Mais ma table de "Synthèse" ne doit récupérer que
les informations suivantes:

Date (sachant que je n'ai pas de colonne date du jour dans ma table actuelle)
UA (numérique, code de l'utilisateur qui passe la commande)
Boites (texte)
Selectionne (si valeur = -1 la boite est commandée)

Si vous avez une solution ça m'aiderait beaucoup!!

Merci

Bonne journée
16/10/2017, 14h57
marot_r
Bonjour.

Pour une table de synthèse, je remettrai tous les champs. Il est à peu près sur que tu vas en avoir besoin dans un avenir plus ou moins proche.
Tu n'est pas obligée, la solution est la même avec juste moins de champs.

Donc tu crée dans ta base qui contient les tables quotidiennes une table tblSynthese

DateCommande
Rang
UA
Boites
Libellés boites
Code panier
Selectionne
Statut
Spécialite
N°
Armoire Sale
NoCycleLaveur
Dernière modification
Statut priorité
Tri

Ensuite dans ta BD A, tu lies la table tblSynthese de BD B. Comme tu n'as pas précisé la version d'Access difficile de t'expliquer cette étape en détail mais cela se trouve facilement sur le net.

Après tu crées dans BD A une requête d'ajout des données de [Statut Besoins Boites J+1] dans tblSynthese. (Je suppose que tu vas la nommer reqAjoutSynthese).
Si tu utilises tous les champs, tu choisis * et Access va copier toutes les données dans la table quelque soit le nombre de champs (colonnes).
C'est là que tu vas compléter le champ DateCommande avec =Date() qui va te donner la date du jour. Il faut que tu ajoutes ce champ aux champs ajoutés.

En suite tu vas dans ton code VBA et tu mets :
Code:

1 2 3 dim db as dao.database: set db=currentdb call db.execute("reqAjoutSynthese", dbfailOnError) db.close: set db=nothing
après le code de transfert.

A+