Importer fichier Excel vers BDD Access

Résolu
kido87 Messages postés 39 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
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  1.
    EBasta Messages postés 37 Statut Membre 31
     
    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
  2. sana9 Messages postés 1 Statut Membre 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
  3. Mustapha
     
    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
    0