Importer chaque onglet d’un fichier Excel comme un « record » dans accès

**bibimtl2x** · 05/03/2016, 18h21

Voilà j’ai un fichier avec 60 onglet, chaque onglet représente un record à importer dans accès.. donc tout les onglets ( qui sont tous identique) ont 15 informations, ces 15 informations redevrait apparaitre dans un champ du même « record ».( un record avec 15 champs). qq’un peut me donner un truc pour importer ça dans accès automatiquement? Je dois refaire ca chaque mois. Gros merci

**madefemere** · 06/03/2016, 13h37

Bonjour,

Si j'ai bien compris, tu as :
1- Un fichier Excel avec 60 onglets.
2- Chaque onglet contient "obligatoirement" une ligne avec 15 colonnes contenant des informations
3- Tu veux importer ces "données" dans une table Access avec 15 champs et les 60 "enregistrements".

Est-ce bien cela ?
Tu as des débuts de solution à ta problématique dans les discussions :
- http://www.developpez.net/forums/d76...s-vers-access/
- http://www.developpez.net/forums/d76...-nom-l-onglet/

Il faut passer par vba pour faire une boucle et intégrer les onglets venant d'être importés dans une table définitive.

Cordialement,

**bibimtl2x** · 06/03/2016, 20h11

Non pas vraiment, mes info sont un peu partout dans mon onglet, mais même si je me ramasse avec 70 champs, ça ne me dérange pas, je vais juste utiliser ceux que j'ai besoin dans ma table/raquette

en gros exemple:
onglet 1: a1=martin b22=34 b78=montreal
onglet 2: a1=patrick b22=55 b78=rigaud

je voudrais comme résultat dans 1 table table
1er enregistrement : 3 champs : martin;34;montreal
2e enregistrement : 3 champs : patrick;55;rigaud

merci

Envoyé par madefemere

Bonjour,

Si j'ai bien compris, tu as :
1- Un fichier Excel avec 60 onglets.
2- Chaque onglet contient "obligatoirement" une ligne avec 15 colonnes contenant des informations
3- Tu veux importer ces "données" dans une table Access avec 15 champs et les 60 "enregistrements".

Est-ce bien cela ?
Tu as des débuts de solution à ta problématique dans les discussions :
- http://www.developpez.net/forums/d76...s-vers-access/
- http://www.developpez.net/forums/d76...-nom-l-onglet/

Il faut passer par vba pour faire une boucle et intégrer les onglets venant d'être importés dans une table définitive.

Cordialement,

**Robert1957** · 07/03/2016, 14h53

Bonjour bibimtl2x,

Voici un code qui te permet de parcourir les différentes feuilles d'un fichier Excel et d'en importer différentes cellules.

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
28
29
30
31
32
33
34
35
36
Option Compare Database
Option Explicit
 
Private Sub parcourirExcel()
    'Déclaration des variables nécessaires
    'Dans outils tu dois avoir la référence Excel de cocher
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim xl As Excel.Application
    Dim wbk As Excel.Workbook
    Dim i As Long
    'On ouvre un record set
    strSQL = "SELECT T_Table.LeNom, T_Table.LeChiffre, T_Table.LaVille FROM T_Table;"
    Set rst = db.OpenRecordset(strSQL)
    'On ouvre Excel
    Set xl = New Excel.Application
    With xl
        Set wbk = .Workbooks.Open("C:\LeCheminComplet\LeNomComplet.xlsx") 'A modifier pour récupérer le bon fichier
        With wbk
            For i = 1 To .Sheets.Count 'On parcours les différentes feuilles
                rst.AddNew 'On insère les données dans un record
                    rst("LeNom") = .Sheets(i).Cells(1, 1)
                    rst("LeChiffre") = .Sheets(i).Cells(2, 22)
                    rst("LaVille") = .Sheets(i).Cells(2, 78)
                rst.Update
            Next i
        End With
    End With
    'Libération des objets
    Set xl = Nothing
    Set wbk = Nothing
    Set rst = Nothing
    Set db = Nothing
 
End Sub

Bonne journée

**bibimtl2x** · 20/03/2016, 03h53

Envoyé par Robert1957

Bonjour bibimtl2x,

Voici un code qui te permet de parcourir les différentes feuilles d'un fichier Excel et d'en importer différentes cellules.

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
28
29
30
31
32
33
34
35
36
Option Compare Database
Option Explicit
 
Private Sub parcourirExcel()
    'Déclaration des variables nécessaires
    'Dans outils tu dois avoir la référence Excel de cocher
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim xl As Excel.Application
    Dim wbk As Excel.Workbook
    Dim i As Long
    'On ouvre un record set
    strSQL = "SELECT T_Table.LeNom, T_Table.LeChiffre, T_Table.LaVille FROM T_Table;"
    Set rst = db.OpenRecordset(strSQL)
    'On ouvre Excel
    Set xl = New Excel.Application
    With xl
        Set wbk = .Workbooks.Open("C:\LeCheminComplet\LeNomComplet.xlsx") 'A modifier pour récupérer le bon fichier
        With wbk
            For i = 1 To .Sheets.Count 'On parcours les différentes feuilles
                rst.AddNew 'On insère les données dans un record
                    rst("LeNom") = .Sheets(i).Cells(1, 1)
                    rst("LeChiffre") = .Sheets(i).Cells(2, 22)
                    rst("LaVille") = .Sheets(i).Cells(2, 78)
                rst.Update
            Next i
        End With
    End With
    'Libération des objets
    Set xl = Nothing
    Set wbk = Nothing
    Set rst = Nothing
    Set db = Nothing
 
End Sub

Bonne journée

Merci pour la réponse ( désolé pour le délais j'ai du tout réinstaller windows)
chu pas trop connaissant dans le VBA, j'ai bien tenté de mettre votre code sur exécuter sur un bouton de formulaire mais ça bogue à :
Dim xl As Excel.Application

le message reçu est : " Erreur de compilation : type défini par l'utilisateur non défini"
j'utilise office 2010 sous windows 10

merci

**Robert1957** · 20/03/2016, 12h44

Bonjour bibimtl2x,

Dans l'éditeur VBA il faut cocher la référence comme suit:
Nom : Reference.PNG
Affichages : 574
Taille : 55,4 Ko

Bonne journée

**bibimtl2x** · 20/03/2016, 18h42

Envoyé par Robert1957

Bonjour bibimtl2x,

Dans l'éditeur VBA il faut cocher la référence comme suit:
Nom : Reference.PNG
Affichages : 574
Taille : 55,4 Ko

Bonne journée

Wow ,merci c'est vraiment en bonne voie grâce a toi

3 tites question:
1) : est possible que le nom de l'onglet soit importer en même temps dans un des champs de mon enregistrement?
2) : c,est quoi le code pour que le chemin d'accès a mon fichier excel n'a aps de chemin si je met le fichier excel dans le même répertoire que ma base de donné? comme les employés vont l’avoir dans différent répertoire..? ex: Set wbk = .Workbooks.Open("import.xls") ( mais directement comme ça, ça marche pas, j'ai essayer .\import.xls ou ..\import.xls mais sans résultat
3) un bug bisard une fois que j'ai importer les donnes dans mon fichier accès je n'arrive plus a ouvrir le fichier excel? ça ne fais que flasher et rien, si je reclik dessus il veux l’ouvrir mais en "read only" comme si il était déjà ouvert

merci

au cas j'ai mis une photo de mes choix de mes "références" Nom : acces.jpg
Affichages : 312
Taille : 54,9 Ko

**Robert1957** · 21/03/2016, 12h45

Bonjour bibimtl2x,

Voici le code corrigé pour tes demandes:

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
28
29
30
31
32
33
34
35
Private Sub parcourirExcel()
    'Déclaration des variables nécessaires
    'Dans outils tu dois avoir la référence Excel de cocher
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim xl As Excel.Application
    Dim wbk As Excel.Workbook
    Dim i As Long
    'On ouvre un record set
    strSQL = "SELECT T_Table.LeNom, T_Table.LeChiffre, T_Table.LaVille, T_Table.OngletExcel FROM T_Table;"
    Set rst = db.OpenRecordset(strSQL)
    'On ouvre Excel
    Set xl = New Excel.Application
    With xl
        Set wbk = .Workbooks.Open(CurrentProject.Path & "\import.xls")  'Code qui répond à la demande # 2
        With wbk
            For i = 1 To .Sheets.Count 'On parcours les différentes feuilles
                rst.AddNew 'On insère les données dans un record
                    rst("LeNom") = .Sheets(i).Cells(1, 1)
                    rst("LeChiffre") = .Sheets(i).Cells(2, 22)
                    rst("LaVille") = .Sheets(i).Cells(2, 78)
                    rst("OngletExcel") = .Worksheets(i).Name 'Code qui répond à la demande # 1
                rst.Update
            Next i
        End With
    End With
    'Libération des objets
    xl.Quit 'Code qui répond à la demande # 3
    Set xl = Nothing
    Set wbk = Nothing
    Set rst = Nothing
    Set db = Nothing
 
End Sub

# 1 à la ligne 23
# 2 à la ligne 16
# 3 à la ligne 29

Bonne journée

**bibimtl2x** · 21/03/2016, 23h47

Envoyé par Robert1957

Bonjour bibimtl2x,

Voici le code corrigé pour tes demandes:

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
28
29
30
31
32
33
34
35
Private Sub parcourirExcel()
    'Déclaration des variables nécessaires
    'Dans outils tu dois avoir la référence Excel de cocher
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim xl As Excel.Application
    Dim wbk As Excel.Workbook
    Dim i As Long
    'On ouvre un record set
    strSQL = "SELECT T_Table.LeNom, T_Table.LeChiffre, T_Table.LaVille, T_Table.OngletExcel FROM T_Table;"
    Set rst = db.OpenRecordset(strSQL)
    'On ouvre Excel
    Set xl = New Excel.Application
    With xl
        Set wbk = .Workbooks.Open(CurrentProject.Path & "\import.xls")  'Code qui répond à la demande # 2
        With wbk
            For i = 1 To .Sheets.Count 'On parcours les différentes feuilles
                rst.AddNew 'On insère les données dans un record
                    rst("LeNom") = .Sheets(i).Cells(1, 1)
                    rst("LeChiffre") = .Sheets(i).Cells(2, 22)
                    rst("LaVille") = .Sheets(i).Cells(2, 78)
                    rst("OngletExcel") = .Worksheets(i).Name 'Code qui répond à la demande # 1
                rst.Update
            Next i
        End With
    End With
    'Libération des objets
    xl.Quit 'Code qui répond à la demande # 3
    Set xl = Nothing
    Set wbk = Nothing
    Set rst = Nothing
    Set db = Nothing
 
End Sub

# 1 à la ligne 23
# 2 à la ligne 16
# 3 à la ligne 29

Bonne journée

Nom : table.jpg
Affichages : 274
Taille : 30,4 Ko

Pour commencer merci beaucoup pour le temps que vous passez à mon problème 

Maintenant je reçois le message suivant :
Je reçois le message d’erreur suivant :
Erreur d’exécution 3061
Trop peu de paramètres 1 attendu

Pour bien comprendre, j’ai mi les bon champs dans le code soit :
("Cie") = pour le champs : D4
("compte") = pour le champs : D5
("ajustéavant") = pour le champs :E55
("ajustéaprès") = pour le champs :K55
("imputé") = pour le champs :K56
("àcrédité") = pour le champs :K57

Pour garder simple ma table s’appelle : T_table
Voir la photo pour voir ma table

Et voici le code que j’ai tenté de programmer avec tes infos :

Private Sub Commande7_Click()

'Déclaration des variables nécessaires
'Dans outils tu dois avoir la référence Excel de cocher
Dim db As DAO.Database: Set db = CurrentDb
Dim rst As DAO.Recordset
Dim strSQL As String
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Dim i As Long
'On ouvre un record set
strSQL = "SELECT T_Table.Cie, T_Table.compte, T_Table.ajustéavant, T_Table.ajustéaprès, T_Table.imputé, T_Table.àcrédité, T_Table.OngletExcel FROM T_Table;"
Set rst = db.OpenRecordset(strSQL)
'On ouvre Excel
Set xl = New Excel.Application
With xl
Set wbk = .Workbooks.Open(CurrentProject.Path & "\import.xls") 'Code qui répond à la demande # 2
With wbk
For i = 1 To .Sheets.Count 'On parcours les différentes feuilles
rst.AddNew 'On insère les données dans un record
rst("Cie") = .Sheets(i).Cells(4, 4)
rst("compte") = .Sheets(i).Cells(4, 5)
rst("ajustéavant") = .Sheets(i).Cells(5, 55)
rst("ajustéaprès") = .Sheets(i).Cells(11, 55)
rst("imputé") = .Sheets(i).Cells(11, 56)
rst("àcrédité") = .Sheets(i).Cells(11, 57)
rst("OngletExcel") = .Worksheets(i).Name 'Code qui répond à la demande # 1
rst.Update
Next i
End With
End With
'Libération des objets
xl.Quit 'Code qui répond à la demande # 3
Set xl = Nothing
Set wbk = Nothing
Set rst = Nothing
Set db = Nothing

End Sub

**Robert1957** · 22/03/2016, 11h47

Bonjour bibimtl2x,

La première chose que je vois est l'absence du champ "OngletExcel" dans T_Table.

Si ce n'est pas le problème, il faudrait que tu spécifies à quel endroit dans le code tu as ce message d'erreur.

Bonne journée

**bibimtl2x** · 23/03/2016, 02h27

Envoyé par Robert1957

Bonjour bibimtl2x,

La première chose que je vois est l'absence du champ "OngletExcel" dans T_Table.

Si ce n'est pas le problème, il faudrait que tu spécifies à quel endroit dans le code tu as ce message d'erreur.

Bonne journée

Gros merci, tout semble beau maintenant, oui en effet j'avais pas pensé ajouter le champs "OngletExcel" dans T_Table

mais après ça importait seulement le 1er champs, de chaque onglet j'ai changer cell par range et ça réglé le tout.. encore une fois un gros merci

Importer chaque onglet d’un fichier Excel comme un « record » dans accès [AC-2010]

Access

Discussions similaires

Partager

Partager