Discussion :

[totor92290]

Bonjour à tous,
J'ai un petit projet access qui me permet de charger toutes les feuilles d'une grande quantité de fichiers excel.
Ces fichiers ne sont pas tous identiques quant à la quantité de feuilles - parfois des feuilles en plus parfois en moins
J'ai adapté ce code (ci-dessous) pour "capturer" toutes les feuilles de tous les fichiers

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Import into a 2eme TEMP table
            Set wb = xlApp.Workbooks.Open("D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, True, False)
            Set ws = wb.Worksheets("Feuille1")                '
    'Transfer
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "TXXX_xxxxxxx1_TEMP", "D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, False, "xxxxxxxxxx1!"
        wb.Close True
'*****
    'Import into a 3eme TEMP table
            Set wb = xlApp.Workbooks.Open("D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, True, False)
            Set ws = wb.Worksheets("Feuille2")                '
    'Transfer
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "T005_xxxxxxxxx2_TEMP", "D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, False, "xxxxxxxxx2!"
        wb.Close True

Malheureusement, si la feuille n'existe pas - PAF - ça bug.
Est-il possible d'ajouter une ou plusieurs lignes et de vérifier si la feuille existe, et si elle n'existe pas alors on passe à la suivante ?
C'est faisable ?

D'avance, un grand Merci

[tee_grandbois]

bonjour,
lit la collection des feuilles du classeur à l'aide d'une boucle:

Code :

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

1
2
3
4
5
6
7
8
    Set wb = xlApp.Workbooks.Open("D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, True, False)
    For i = 1 To wb.Sheets.Count
    'Import into a TEMP table
        Set ws = wb.Worksheets(i)                '
    'Transfer
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "TXXX_xxxxxxx" & i & "_TEMP", "D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, False, "xxxxxxxxxx" & i & "!"
    next i
    wb.Close True

[totor92290]

Bonjour Tee,
Désole pour mon retour tardif !
En fait je me suis mal exprimé...
Tous les fichiers excel ont de multiples feuilles avec des noms différents (dans mon exemple "Feuille1", "Feuille2"; "Feuille3", "Feuille4"...)
J'ai repris ces noms en adaptant chacune de mes lignes.
Mais dans certains fichiers, il manque, par exemple la "Feuille2"
Donc j'ai ajouté, comme tu m'y invite

Code :

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

For i = 1 To wb.Sheets.Count

et

Code :

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

 next i

aux mêmes endroits sur l'ensemble de mes lignes, mais dans mon premier fichier la "Feuille2" n'existe pas ... donc ça bloque !

C'est quoiki bloque ?

Merci

[tee_grandbois]

bonsoir,
on va récupérer les feuilles existantes (et qui ont des lignes) dans un tableau et avec Mid() on va récupérer le numéro de la feuille plutôt que son indice dans la collection:

Code VBA :

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
Dim i As Integer
Dim tabloFeuilles() As String
 
Set wb = xlApp.Workbooks.Open("D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, True, False)
 
For i = 1 To wb.Sheets.Count
    ' chargement du nom de la feuille si elle contient des lignes
    If wb.Worksheets(i).UsedRange.Rows.Count > 1 Then
        ReDim Preserve tabloFeuilles(i - 1)
        tabloFeuilles(i - 1) = wb.Worksheets(i).Name
    End If
Next i
 
For i = 0 To UBound(tabloFeuilles)
    'Import into a TEMP table
     DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "TXXX_xxxxxxx" & mid(tabloFeuilles(i), 8, 2) & "_TEMP", "D:\xxxxxx\xxxxxxx\xxxxxxxxx\" & fileName, False, tabloFeuilles(i) & "!"
next i
 
wb.Close True

sinon si "xxxxxxx" représente le nom de la feuille ici:"TXXX_xxxxxxx" on peut se passer de Mid():

Code :

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

 "TXXX_" & tabloFeuilles(i) & "_TEMP"