Discussion :

[SOFIC]

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.

[helas]

Bonjour,
Il y a peut-être plus simple avec

Code :

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

1
2
3
4
 
    fichier = "C:\Users\DELL\Desktop\Liste.xlsx"
    DoCmd.TransferSpreadsheet acLink, , "tbRecup", fichier, True, "Feuil1!"
    DoCmd.RunSQL "INSERT INTO Installation ( [code instal] ) SELECT tbRecup.nom FROM tbRecup;"

Le fichier excel est lié à la base par la création de tbRecup
Une requete suffit pour récupérer les données
Dans mon fichier excel de test, j'ai nommé la colonne 'nom'