Discussion :

[Invité]

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

[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 ici

Cordialement.

[Invité]

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 ici

Cordialement.

[madefemere]

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

[Invité]

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

[madefemere]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

[madefemere]

Bonsoir,

Tu peux voir à la page du 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.

[tee_grandbois]

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

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
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