Discussion :

[moxdes]

Bonjour tout le monde,

Je suis à la recherche d'un petit renseignement. Je souhaite importer des données dans formulaire Access depuis un fichier Excel. Le problème c'est que j'ai pas vraiment envie d'utiliser TransfertSpreadsheet pour ça, les données du fichier Excel ne sont pas bien rangées et ne concernent pas qu'une seule plage, et j'ai pas envie de me retrouver avec 36000 tables supplémentaires dans ma BDD.
Donc si vous avez des idées, je suis preneur.

PS: Oui, j'ai googlé tout ça avant
PPS: Je débute encore en vba Access, jusque là, j'ai réussi à me débrouiller tout seul, mais là je coince un peu pour trouver une alternative au TransfertSpreadsheet.

[Robert1957]

Bonjour moxdes,

Il est possible de parcourir un fichier Excel et d'importer seulement ce que l'on veut. Le problème est de savoir d'avance ce que l'on veut. Voici un exemple, tu pourras adapter selon tes besoins.

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
'Les variables nécessaires
    Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
    Dim i As Integer
    Dim strMessage as string
 
    'Créer l'objet
    Set oApp = CreateObject("excel.application")
    'Ouvrir l'objet
    Set oWkb = oApp.Workbooks.Open(LeCheminDuFichierEtLeNomComplet)
    'Choisir la feuille
    Set oWSht = oWkb.Worksheets(LeNomDeLaFeuille)
    'Choisir la ligne ici je partirais à la ligne 8
    i = 8
    'Parcourir la feuille jusqu'à ce qu'il n'y ait plus de données
    While oWSht.Range("B" & i).Value <> ""
       'Ici on pourrait mettre une requête Insert qui ajouterais à une table les lignes concernées
       strMessage =  oWSht.Cells(i, 2) & " et " & oWSht.Cells(i, 3)
       i = i + 1
    Wend
    'Fermer les objets
    oWkb.Close
    Set oWSht = Nothing
    Set oWkb = Nothing
    Set oApp = Nothing

Bonne chance

[moxdes]

Merci ! C'est tout ce qu'il me fallait, en plus c'est bien commenté. Avec ça, et/ou en travaillant un peu en amont sur le fichier Excel, je devrais être capable d'arriver à ce que je veux.
Bonne soirée à toi.