Discussion :

[franckb74]

Bonjour,
J'aimerai pouvoir importer dans Access les informations saisies dans certaines cellules d'un fichier Excel
Mon fichier Excel se nomme : Inscription
Le nom de la feuille est : Feuille1
La 1ère cellule à importer est en B1
La 2nd cellule à importer est en C10
J'en ai d'autres mais si je comprends la logique du code je l'adapterai pour les autres.

Le nom de la table dans Access est : Gym
Le champ correspondant à la contenu de la cellule B1 à importer est : Nom
Et celui correspondant à la cellule C10 est : Prenom

En vous remerciant pour votre aide
Franck

[ClaudeLELOUP]

Bonjour,

Regarde dans la FAQ, il y a tout ce qu'il te faut : http://access.developpez.com/faq/?page=Excel#PilotExcel

[franckb74]

Merci mais je ne suis pas assez expert je n'ai pas trouvé de ligne de code qui correspondaient à ma recherche
Pourriez-vous m'aiguiller ?
Merci pour votre aide

[ClaudeLELOUP]

Voici un exemple

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
Option Compare Database
Option Explicit
 
Private Sub btImport_Click()
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    ' Initialiser les variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\Inscription.xlsx") 'ici dans le même répertoire que la db
    Set xlSheet = xlBook.Worksheets("Feuille1")
 
    ' Manipuler une cellule
    Me.txtB1 = xlSheet.Cells(1, 2)  'Remarque les coordonnées d'abord la ligne et ensuite la colonne)
    Me.txtC10 = xlSheet.Cells(10, 3)
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Sub

[franckb74]

Ça marche tip top !!
Merci beaucoup !!