importer plusieurs feuilles excel dans une table access en vba

Version imprimable

07/04/2019, 23h50
Invité

importer plusieurs feuilles excel dans une table access en vba

bsr à tous
mon problème je veux importer plusieurs feuilles excel dans une table access en vba à l'aide d'un formulaire
le fichier excel a bcp de feuilles (le nombre n'est pas fixe)
les feuilles ont la même disposition (les cellules en jaune se sont les donnée de la table;
merci
08/04/2019, 14h50
madefemere

Bonjour,

La façon la plus simple (déjà pour commencer et comprendre) pour importer un fichier Excel est d'utiliser la commande "DoCmd.TransferSpreadsheet".
Ensuite, pour gérer plusieurs feuilles, il faut piloter Excel. Tu as des exemples dans le :faq: ici

Cordialement.
08/04/2019, 15h33
Invité

j'ai pas pu le faire

Citation:

Envoyé par madefemere

Bonjour,

La façon la plus simple (déjà pour commencer et comprendre) pour importer un fichier Excel est d'utiliser la commande "DoCmd.TransferSpreadsheet".
Ensuite, pour gérer plusieurs feuilles, il faut piloter Excel. Tu as des exemples dans le :faq: ici

Cordialement.
08/04/2019, 15h37
madefemere

Qu'est-ce que tu n'as pas pu faire ?
08/04/2019, 15h41
Invité

j'ai pas pu importer les feuilles d'excel sur ma base de données

Citation:

Envoyé par madefemere

Qu'est-ce que tu n'as pas pu faire ?

Bonjour,

Tu mets ce code dans l'évènement Sur click d'un bouton de formulaire

Code:

1
2
3
4
5
6
Private Sub BtnImporter_Click()
    Dim ficExcel As String
    ficExcel = "LeDossier\data.xls" 'là où tu as ton fichier
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_Importe", ficExcel
 
End Sub

Cordialement.

C'est pa ça le prb

Le problème je veux importer plusieurs feuilles excel dans une table access en vba à l'aide d'un formulaire
le fichier excel a bcp de feuilles (le nombre n'est pas fixe)
les feuilles ont la même disposition (les cellules en jaune se sont les donnée de la table; en bleu l'entête de la table)

Je veux un code pour:
Chercher le fichier excel et importer tous les feuilles sur une table

QUOTE=madefemere;10874032]Bonjour,

Tu mets ce code dans l'évènement Sur click d'un bouton de formulaire
Code:

1 2 3 4 5 6 Private Sub BtnImporter_Click() Dim ficExcel As String ficExcel = "LeDossier\data.xls" 'là où tu as ton fichier DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_Importe", ficExcel End Sub
Cordialement.[/QUOTE]

09/04/2019, 21h22
madefemere

Bonsoir,

Tu peux voir à la page du :faq: ICI les différents codes pour manipuler la boîte de sélection des fichiers.
A combiner avec le code envoyé précédemment pour importer un fichier Excel.

Cordialement.

bonsoir,
on peut aussi utiliser la propriété Sheets.Count du classeur pour boucler sur toutes les feuilles à importer:

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
Sub importMultiFeuilles()
Dim xlapp As New excel.Application
Dim xlWbk As excel.Workbook
Dim f As Integer
Dim strNomClasseur As String
Dim tabloFeuilles() As String
 
strNomClasseur = "D:\MonClasseur.xlsx"
Set xlWbk = xlapp.Workbooks.Open(strNomClasseur)
 
For f = 1 To xlWbk.Sheets.Count
    ' chargement du nom de la feuille si elle contient des lignes
    If xlWbk.Worksheets(f).UsedRange.Rows.Count > 1 Then
        ReDim Preserve tabloFeuilles(f - 1)
        tabloFeuilles(f - 1) = xlWbk.Worksheets(f).Name
    End If
Next f
 
xlWbk.Close
xlapp.Quit
' imporation des feuilles
For f = 0 To UBound(tabloFeuilles)
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_Importe", strNomClasseur, True, tabloFeuilles(f) & "!"
Next f
End Sub