Discussion :

[accessmounir313]

Bonjour à tous je suis nouveau dans ce forum et petetre que la question que je vais posé a été deja posé mais c'est vraiment trés URGENT.Donc voici ma question: JE VOUDRAIS SAVOIR COMMENT TRANSFERE OU IMPORTER DES DONNEES EXCEL VERS ACCESS. Si quelequn a la reponse please veuillez me l'envoyez ou s'il existe des liens pour obtenir la solution.Merci d'avance.tres tres URGENT

[Invité]

Bonjour

Tu aurais eut un bout de réponse en faisant des recherches, ce forum dispose d'un dispositif de recherche ici et de tutos.

Tu trouveras un tuto ici de Caféine qui te donnera une piste de recherche.

Starec

[accessmounir313]

Merci pour le lien que vous m'aviez donné mais en faisant des recherche dessu je vois qu'on ne parle que de l'exportation ou l'automatisation de données d'access vers excel.Alors que moi ce qui m'intéresse c'est le contraire c'est à dire l'importation ou l'automatisation des données excel vers access.

[Invité]

Re

Oui, je t'ai dit que cela te donnerait des pistes.
Les méthodes qu'évoques Caféine peuvent être retournées, comme TransfertSpreadSheet, en petit coup d'oeil dans l'aide te donnera la démarche.

Starec

[accessmounir313]

Sinon j'ai tenté de créer une base de donnée access nommée ETUDIANTS ayant comme table "etudiants" et les champs sont les suivants(MATRICULE NOM PRENOM SALLE NIVEAU). Et j'ai créer aussi un fichier excel nommé "etudiant", ou j'ai une feuille nommée "étudiants" contenant les information suivante: MATRICULES NOM PRENOM SALLE NIVEAU.Donc j'ai essayer d'importer les données du fichier excel dans ma base de donnée access en creant un boutton de commande dans VB, nommée "btExcel-Access" en y insérant le code suivant ci dessou mais lorsque je compile j'ai un message du genre :" Variable objet ou variable bloc With non définie".Je ne sais pas ce que le message veut dire.Donc please ci posible voire mon code cidessou peut etre vous avez une idée la dessu.merci.

voici mon code vb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
 
Dim MaBase As DAO.Database
Dim Matable As DAO.Recordset
 
MonFichier = "fiche des etudiants.xls"
 
SetMonXL = CreateObject("Excel.Application")
SetMaBase = currentDB
SetMaTable = MaBase.OpenRecordset("TableName")
 
MonXL.Workbooks.OpenFileName = "C:\Documents and Settings\Mounir\Mes documents\SENELEC\test" 'c'est le chemin du repertoir de mon fichier excel'
Matable![MATRICULE] = MonXL.Range("MATRICULES").Value
 
Exit_Command1_Click:
Exit Sub
 
Err_Command1_Click:
 MsgBox Err.Description
 Resume Exit_Command1_Click
 
 End Sub

[cheikhaba]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadsheet acLink, 8, "Excel", scr, True

ce code permet de linker un sheet excel vers access

pour l'importation remplacer acLink par acImport

"scr" represente le chemin du fichier excel


bonne chance