[AC-2003] Importer seulement quelques cellules Excel vers Access. [Résolu]

[Malela]

Bonjour,

J'aurais besoin de vos lumières. Voici mon soucis :
Je dispose d'un fichier Excel possédant 17 feuilles.
Sauf que moi, je ne veux importer les données que de 11 feuilles (avec la même disposition.) -> Prenons par exemple les feuilles "France" "Chine" "USA" "Italy" "..."

Ensuite, je ne veux prendre que certaines cellules. Pour éviter de retravailler la base par la suite (importer en brut).
Il y aurai une vingtaine de cellules à prendre, par ligne, pour ensuite les importer sur Access. Il y aurait 4 lignes pour chaque feuille à importer. Soit 80 cellules.

J'espère avoir été claire, si vous voulez de plus amples explications, n'hésitez pas !

Cordialement,
Malela.

[helas]

Bonjour,
avec un petit module
Les données sont importées dans une table Import, à adapter

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
28
29
 
Sub Importation()
 Dim xlApp As Object, xlw As Workbook, sh As Worksheet
 Dim t As DAO.Recordset, i As Long
 
 Set xlApp = CreateObject("Excel.Application")
 Set xlw = xlApp.Workbooks.Open("c:\chemin\fichierExcel.xlsx")
 xlApp.Visible = True
 
 DoCmd.RunSQL "DELETE Import.* FROM Import;"
 
 Set t = CurrentDb.OpenRecordset("Import")
 For i = 1 To xlw.Sheets.Count
   Set sh = Sheets(i)
   Select Case sh.Name
   Case "France", "Italie", "USA"
     t.AddNew
     t!pays = sh.Name
     t!valeur1 = sh.Cells(4, 2)
     t!valeur2 = sh.Cells(7, 5)
     .....
     t.Update
   End Select
 
 Next i
 t.Close
 xlw.Close SaveChanges:=False
 xlApp.Quit
End Sub

La sélection de l'onglet peut aussi se faire par le numéro de l'onglet

Code :

1
2
3
 
   Select Case i
   Case 4 To 8, 10, 13, 15 To 17