Discussion :

[rouchi]

Bonjour @ tous,

J'ai actuellement dans ma base access une table liée dont la source et un fichier excel. Mon problème c'est qu'avec ce mode, l'accès est en exclusive. Impossible de partager le fichier lié pour se connecter à plusieurs.
Ce fichier excel est alimenté tous les jours après la facturation de la journée.
Est-il possible que j'importe le fichier actuel en table classique access mais d'ajouter via du code VBA les nouveaux enregistrements quotidien du fichier excel ?

Merci de votre précieuse aide

[marot_r]

Bonjour.

Est-ce que tu as une information (ex : date de saisie, numéro d'entrée) qui permet de savoir que ces enregistrements sont nouveaux ?

A+

[rouchi]

Oui,

J'ai les dates de factures. Le champ n'est pas en première colonne.

[marot_r]

Il y a-t'il aussi un numéro de facture ?

En informatique, un numéro unique est le saint-graal, tout va vraiment mieux quand on en a un.

Sinon, l'idée est la même de toute façon :

1. Tu crées une table d'importation que je vais supposer appelé tblFacture_Import
2. Tu crées une table permanente que je vais supposer appelé tblFacture (tblFacture à au moins tous les champs qu'on trouve dans tblFacture_Import)
3. Tu crées une requête (reqFacture_Nouveau) de non correspondance qui va te donner toutes factures qui sont dans tblFacture_Import et qui ne sont pas dans tblFacture (donc les nouvelles factures).
   
   1. Tu crées une nouvelle requête avec l'éditeur de requête.
   2. Tu ajoutes les tables tblFacture et tblFacture_Import.
   3. Tu sélectionnes l'étoile (*) de tblFacture_Import et tu la glisses dans les colonnes de champs.
   4. Tu sélectionnes le champ date de tblFacture et tu le glisses dans les colonnes de champs.
   5. Sur la ligne critère, tu mets Is Null.
   6. Tu cliques le champ date de tblFacture_Import et tu le glisses sur le champ date de tblFacture (si tu as un champ NoFacture, utilises-le à la place).
   7. Tu cliques droit sur la jointure et tu choisis le choix 2 (Toutes les données de tblFacture_Import et seulement celles de tblFacture qui correspond).
   8. Tu exécutes et tu vérifies que tu as bien seulement les nouvelles données.
4. Tu crées une requête d'ajout qui va prendre les donnes de reqFacture_Nouveau et les ajouter à tblFacture.
   
   1. Tu crées une nouvelle requête (reqFacture_AjouterNouveau) et tu y ajoutes la requête reqFacture_Nouveau
   2. Tu sélectionnes l'étoile (*) de reqFacture_Nouveau et tu la glisses dans la liste des champs.
   3. Tu changes le type de requête pour "Ajout" (c'est une des icônes au dessus des tables).
      Quand Access te demandes quelle table tu réponds tblFacture.

On a fini avec les morceaux.

Maintenant le traitement :

1. Au début du traitement, tu vides la table tblFacture_Import. (utilise une requête de suppression).
2. Tu importes les données dans la table tblFacture_Import
3. Tu exécutes la requête reqFacture_AjouterNouveau qui va t'ajouter toutes les nouvelles factures.
4. Quand tout est au point, tu peux vider la table d'import puisqu'elle est temporaire, inutile de garder les données.
   Pendant la phase de développement, il peut être pratique de voir ce que Access voit vraiment.

A+

[rouchi]

Il n'y a pas plus précis comme explication !!

Vraiment merci pour ta proposition de solution.

Néanmoins, mon export excel comporte la totalité d'une journée, c'est à dire que le numéro de facture ou même la date n'est pas unique par ligne
car l'export comprends aussi le contenu des factures et donc à chaque ligne j'ai la date et le n° de facture qui se répète.



Cela va fonctionner aussi tu penses ?

[rouchi]

Donc,

J'ai bien suivi ton tuto,

Au moment d’exécuter la requête d'ajout j'ai message qui dit :

Destination de sortie "Date" répliquée.

Je clique OK et rien ne se passe.

[rouchi]

J'ai trouvé,
Dans la requête de comparaison j'ai rendu non visible le champ date de la table à comparer.

De plus, j'ai crée un champ ID dans les deux table et c'est les ID que je compare car pour la date cela ne pouvait pas fonctionner puisqu'elle est répétée sur chaque lignes du fichier excel.