Importer fichier Excel vers BDD Access [Résolu/Fermé]

Signaler
Messages postés
39
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
29 juin 2007
-
sana9
Messages postés
1
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
26 juin 2008
-
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

3 réponses

Messages postés
37
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
25 mai 2007
30
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 !
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 81023 internautes nous ont dit merci ce mois-ci

Messages postés
1
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
26 juin 2008
1
Bonjour,
j'ai une base de données sur excel et je veux l'importer vers access
pouvez vous me donner les procédures??
merci d'avance
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 81023 internautes nous ont dit merci ce mois-ci

j(ai le meme probleme :je veux transferé les données se trouvant dans un feuille excel ( sous forme de table (nom prenom adresse ) contenant 30000 enregistrements) vers une table bdd de delphi de type paradox nomée etudiant;
aidez moi SVP