Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Req PrixTotal CMonnaie Détails commandes Prix unitaire Quantité - Remise SFTOTAL IMPORT STOCKS MINOS QUANTITE IMPORT STOCKS MAPICS Quantité Année Année Date envoi ou Année Format Date envoi aaaa Date envoi par mois Format Factures Date envoi 'mmmm aaaa' T

PrixTotal CMonnaie Détails commandes Prix unitaire Quantité - Remise SFTOTAL IMPORT STOCKS MINOS QUANTITE IMPORT STOCKS MAPICS Quantité Année Année Date envoi ou Année Format Date envoi aaaa Date envoi par mois Format Factures Date envoi 'mmmm aaaa' TrimestreEnvoi Tr PartDate t Date envoi Expr Année Factures Date envoi PartDate 'm' Factures Date envoi - SELECT TClient NClient TClient NomClient INTO Nxtable FROM TClient Bonjour J'ai une table saisiedonnées qui regroupe toutes les saisies codearticle date entrées sorties et une requete qui appelle les données en fonction du critère codearticle L'objectif est d'avoir un état qui a ?che les entrées les sorties et un champ calculé qui a ?che le résultat 'stock stock début entrées - sorties ceci à chaque ligne de l'état Avec la requete select je parviens à réunir les données mais le problème est d'avoir le champ calculer 'stock' Voici les formules appropriées Source Microsoft Bien entendu il faut les adapter à votre situation Pour les recevoir il faut d'abord créer champs de type texte dans le pied de formulaire Somme nz UnitésCommandées -nz UnitésReçues Somme nz UnitésReçues -nz PerteUnités -nz UnitésVendues CImaginons que vous désiriez importer non pas une seule feuille Excel mais toutes les feuilles d'un classeur Comment faire Astuce aimablement envoyée par Ludovic Si vous désirez plus d'explications concernant l'importation simple d'une feuilles Excel c'est par ici Mode d'emploi Dans la base de données Access dans laquelle vous désirez importer l'ensemble de toutes les feuilles de calcul d'un ?chier Excel écrivez le code suivant dans un module VBA et exécutez le Le ?chier Excel s'appelle ici C TOTO XLS Il faut bien évidemment l'adapter à votre situation Sub ImportationGlobale Dim appXl As Excel Application Dim intNbFeuille As Integer Dim intIndex As Integer Dim avarTabFeuille As Variant Dim WorkSheet As Excel WorkSheet Dim tdf As TableDef Set appXl CreateObject Excel Application intNbFeuille 'OUVRE LE FICHIER XLS ET TROUVE LERS DIFFERENTES FEUILLES With appXl Workbooks Open C toto xls ReDim avarTabFeuille Worksheets Count For Each WorkSheet In Worksheets avarTabFeuille intNbFeuille WorkSheet name intNbFeuille intNbFeuille Next Quit End With Set appXl Nothing 'CREE UNE TABLE LINKEE POUR CHACUNES DES FEUILLES TROUVEES For intIndex To UBound avarTabFeuille fEntrer False Set tdf CurrentDb CreateTableDef avarTabFeuille intIndex tdf Connect Excel DATABASE Result tdf SourceTableName avarTabFeuille intIndex CurrentDb TableDefs Append tdf CurrentDb TableDefs Refresh Next End Sub C Re Importer ?chiers excel dans table Access bonsoir Juste pour le Fun voici une procédure qui boucle sur tous les classeurs d'un répertoire sans les ouvrir et transfert les données de la Feuil vers une table Access Table L'exemple suppose que Tous les onglets portent le même nom Les classeurs sont structurés comme une vraie base pas de données éparpillées et de structure identique à la base Access nombre de colonne et type de données adaptés date texte numerique etc la procédure nécessite d'activer la référence Microsoft ActiveX Data Objects x x Library Code Sub tranfertFeuilleClasseursFermes VersAccess Dim Cn As New ADODB Connection Dim oProdRS As New ADODB Recordset oRS As ADODB Recordset