Implémentation des tables sous Access à partir d'un fichier EXCEL
Bonjour,
Actuellement je suis sur un projet de développement sous Access et j'arrive pas a récupérer les informations a partir d'un fichier Excel via une programmation en VBA. En fait j'ai essayer avec le code suivant et ça n'a pas marché.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Sub recup()
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("C:\Users\DELL\Desktop\Liste.xlsx")
Set oWSht = oWkb.Worksheets("Liste11")
'premier ligne ou tu commence ton import
i = 2
'pour éviter les messages lors de l'ajout des enregistrements
'tant que la cellule n'est pas vide
While oWSht.Range("G" & i).Value <> ""
cSQL = "insert into [Installation] ( [Code_Instal] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ")"
'exécute la requète
DoCmd.RunSQL cSQL
i = i + 1
Wend
DoCmd.SetWarnings True
End Sub |
Mon problème consiste a récupérer certaines colonnes de mon fichier excel et les insérer dans les tables appropriées sous access.
Quelqu'un peut m'aider svp!! c urgent.
Merci d'avance.
