{Access} importation/exportation
Résolu
Iruka72
Messages postés
255
Date d'inscription
Statut
Membre
Dernière intervention
-
Iruka72 Messages postés 255 Date d'inscription Statut Membre Dernière intervention -
Iruka72 Messages postés 255 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- {Access} importation/exportation
- Access appdata - Guide
- Acer quick access ✓ - Forum PC portable
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Exemple de base de données access - Forum Access
- Echec d'importation story instagram ✓ - Forum Samsung
4 réponses
Bonjour Iruka72,
La solution que je propose à failp ne serait-elle pas une solution adaptée à votre cas ?
https://forums.commentcamarche.net/forum/affich-17018660-access-import-export-automatique-excel
Cordialement
La solution que je propose à failp ne serait-elle pas une solution adaptée à votre cas ?
https://forums.commentcamarche.net/forum/affich-17018660-access-import-export-automatique-excel
Cordialement
Désolé de ne pas avoir répondu plus tôt, je suis tombé malade et vraiment pas capable de travailler correctement sur ca, enfin bref j'ai regardé ta solution, si j'ai bien compris ce qu'elle fait elle fait l'import de tout vers une seule base, je l'ai testé ca a l'air de fonctionner.
En modifiant ton code de façon à appeler deux fois dans deux fonction sensiblement différents(je modifie le lieu de recherche) de façon à introduire le numéro de la clé primaire et de la clé étrangère, dans les champs qu'ils importent je peux faire en sorte d'importer respectivement deux fichiers excel différents vers mes deux tables et ainsi garder le lien entre les enregistrements, sans pour autant devoir passer par une solution de requète ajout/mise à jour, ou du chippotage en vba pour gèrer l'importation champ après champ.
Je te remercie infiniment, ca va grandement me simplifier la vie, et me retirer pas mal d'heure que je pourrais consacrer à d'autres parties que je trouve plus intéressante à concevoir.
En modifiant ton code de façon à appeler deux fois dans deux fonction sensiblement différents(je modifie le lieu de recherche) de façon à introduire le numéro de la clé primaire et de la clé étrangère, dans les champs qu'ils importent je peux faire en sorte d'importer respectivement deux fichiers excel différents vers mes deux tables et ainsi garder le lien entre les enregistrements, sans pour autant devoir passer par une solution de requète ajout/mise à jour, ou du chippotage en vba pour gèrer l'importation champ après champ.
Je te remercie infiniment, ca va grandement me simplifier la vie, et me retirer pas mal d'heure que je pourrais consacrer à d'autres parties que je trouve plus intéressante à concevoir.
Bonjour Iruka72?
Merci pour ce retour d'information. Si ce n'est abuser, je jetterais volontiers
un coup d'oeil sur ce qui est devenu votre solution.
Autrement dit : Un copier-coller de ladite solution m'intéresse ...
Merci d'avance
Cordialement
Merci pour ce retour d'information. Si ce n'est abuser, je jetterais volontiers
un coup d'oeil sur ce qui est devenu votre solution.
Autrement dit : Un copier-coller de ladite solution m'intéresse ...
Merci d'avance
Cordialement
modifier est un grand mot, j'ai juste repris le code, avec les modifications(c'est surtout de ca que je parlais) que tu proposait en dessous du code, et j'ai fait deux fonctions différentes avec juste le fichiers qui changent pour ca que j'ai pas coller de retour, j'en voyais pas l'intérêt, l'insertion automatique du nombre pour clé primaire et secondaire se fait sous excel, pour l'instant manuellement.
Pour l'instant, je dois encore faire l'un puis l'autre mais je compte mettre au point sur un simple clic bouton la mise en marche des deux en même temps, c'est pas bien compliqué, mais autre chose a faire pour l'instant.
Encore une fois merci pour la solution.
Function ImporteExcel() Dim NomFich As String NomFich = Dir("C:\*.xls") Do While NomFich <> "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tabletest", "C:\" & NomFich, True, "A1:I300" NomFich = Dir Loop End Function Function ImporteExcel2() Dim NomFich As String NomFich = Dir("C:\isims\*.xls") Do While NomFich <> "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "table1", "C:\isims\" & NomFich, True, "A1:I300" NomFich = Dir Loop End Function
Pour l'instant, je dois encore faire l'un puis l'autre mais je compte mettre au point sur un simple clic bouton la mise en marche des deux en même temps, c'est pas bien compliqué, mais autre chose a faire pour l'instant.
Encore une fois merci pour la solution.