importer un tableau d'exel vers access via vb

Question

je veux cree un formulaire dans lequel j'aurais un bouton;

lorsque je clique sur ce bouton ,je dois pour voir importer un tableau de excel vers access.
voila j'ai plusieures fichers d'excel comportant le meme tableau avec des donnees differentes,
la structure du tableau est : etudiant (nom_et_prenom,date_de_naissance,faculte,annee_universitaire).
dans access je cree un tableau avec les meme champs, et maintenant a l'aide d'un bouton je dois pouvoir recuperer les donnees de excel et les placer dans access via vba.
comment puis-je faire?

merci pour tout aide

basbousa · Answer

salut

j'ai le meme pb que toi est ce que tu as trouvé une solution c'est critique pour moi

mon stage est en joue

svp si tu peux aide moi mon email est basma.elyes@gmail.com

Jennaipas · Answer

Bonjour, 

Dim acs             As Access.Application
Dim Docmd       As Access.Docmd

'//Création d'une instance Access
Set acs = CreateObject("Access.Application")
Set Docmd = acs.Docmd
'//Ouverture de la base de données Access
acs.OpenCurrentDatabase "C:\...\...\....mdb
'//Supprime la Table de la base de données Access
On Error Resume Next
Docmd.DeleteObject acTable, Le_nom_de_la_table
If Err Then
   Err.Clear
End If
On Error GoTo 0
'//Réimporte la table dans la base de données
'//L'exemple ci_dessous construira une table ELEVES Composée de 6 champs (Colonnes A à F) et de 49 enregistrements (Lignes 2 à 50). La première ligne contenant la définition des champs.
Docmd.TransferSpreadsheet acImport, 8, "ELEVES", "C:\Test.xls", True, "Feuil1!A1:F50"
'//Ferme la base de données
Docmd.Close
acs.Quit
Set acs = Nothing
Set Docmd = Nothing

gneugneu · Answer

mange un curly gamin

Importer un tableau d'exel vers access via vb

3 réponses

Discussions similaires

Newsletters