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 : 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
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.