Importer fichier Excel vers BDD Access
Résolu
kido87
Messages postés
39
Statut
Membre
-
sana9 Messages postés 1 Statut Membre -
sana9 Messages postés 1 Statut Membre -
Bonjour tout le monde je suis nouveau et débutant dans le domaine de la programmation et j'ai un petit service à demander.
Voila en fait je dois importer des informations d'une feuille Excel sur une base de données access, je sais que je dois utiliser VBA mais si vous pouviez m'aider à faire le code, qu'il soit bien expliquer pour que je puisse comprendre...
Merci à vous par avance
Voila en fait je dois importer des informations d'une feuille Excel sur une base de données access, je sais que je dois utiliser VBA mais si vous pouviez m'aider à faire le code, qu'il soit bien expliquer pour que je puisse comprendre...
Merci à vous par avance
A voir également:
- Importer fichier Excel vers BDD Access
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
3 réponses
Bonjour,
La commande de base en VBA pour importer une feuille Excel dans une table est :
DoCmd.TransferSpreadsheet acImport, NumeroVersionExcel, "NomDeLaTableDestination", "Chemin\NomClasseurExcel.xls", True, "PlageDeDonnéesExcel"
Avec :
acImport : pour importer les données d'Excel vers Access.
NumeroVersionExcel : Valeur de la version d'Excel installée sur le pc - 8 pour Excel 2003.
NomDeLaTableDestination : Nom de la table de destinationdéjà existante sous Access.
Chemin : Répertoire dans lequel se trouve le classeur Excel à importer.
NomClasseurExcel.xls : Nom du classeur à importer.
True : Indique que la première ligne d'Excel contient le nom des champs (de la table). Dans le cas contraire, mettre False.
PlageDeDonnéesExcel : Facultatif - Indique la plage Excel à importer.
Par défaut, la première feuille du classeur Excel sera importée.
Il est impératif, par défaut, que le dessin de la feuille du classeur Excel à importer corresponde à celui de la table Access...
Par exemple, importer les cellules A1:C38000 du classeur "Factures 2006.xls" situé dans "C:\Données\Factures" dans la table "tblFactures"
Sub ImporterExcel()
'En cas d'erreur, on va à l'étiquette GererErreur
On error goto GererErreur
'On importe Excel
DoCmd.TransferSpreadsheet acImport, 8, "tblFactures", "C:\Données\Factures\Factures 2006.xls", True, "A1:C38000"
'On quitte le programme
Exit Sub
GererErreur:
'En cas d'erreur on affiche un message avec le numéro et la description de l'erreur...
MsgBox Err.Number & " : " & Err.Description, vbCritical + vbOKOnly, "Il y a une erreur !"
'... et on revient à la suite du programme
Resume GererErreur
Ens Sub
J'espère avoir bien répondu !
La commande de base en VBA pour importer une feuille Excel dans une table est :
DoCmd.TransferSpreadsheet acImport, NumeroVersionExcel, "NomDeLaTableDestination", "Chemin\NomClasseurExcel.xls", True, "PlageDeDonnéesExcel"
Avec :
acImport : pour importer les données d'Excel vers Access.
NumeroVersionExcel : Valeur de la version d'Excel installée sur le pc - 8 pour Excel 2003.
NomDeLaTableDestination : Nom de la table de destinationdéjà existante sous Access.
Chemin : Répertoire dans lequel se trouve le classeur Excel à importer.
NomClasseurExcel.xls : Nom du classeur à importer.
True : Indique que la première ligne d'Excel contient le nom des champs (de la table). Dans le cas contraire, mettre False.
PlageDeDonnéesExcel : Facultatif - Indique la plage Excel à importer.
Par défaut, la première feuille du classeur Excel sera importée.
Il est impératif, par défaut, que le dessin de la feuille du classeur Excel à importer corresponde à celui de la table Access...
Par exemple, importer les cellules A1:C38000 du classeur "Factures 2006.xls" situé dans "C:\Données\Factures" dans la table "tblFactures"
Sub ImporterExcel()
'En cas d'erreur, on va à l'étiquette GererErreur
On error goto GererErreur
'On importe Excel
DoCmd.TransferSpreadsheet acImport, 8, "tblFactures", "C:\Données\Factures\Factures 2006.xls", True, "A1:C38000"
'On quitte le programme
Exit Sub
GererErreur:
'En cas d'erreur on affiche un message avec le numéro et la description de l'erreur...
MsgBox Err.Number & " : " & Err.Description, vbCritical + vbOKOnly, "Il y a une erreur !"
'... et on revient à la suite du programme
Resume GererErreur
Ens Sub
J'espère avoir bien répondu !
