Discussion :

[totor92290]

Bonjour à tous,
Je souhaite importer qu'une partie d'un fichier excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' *****Import into a lundi TEMP table
        Set wb = xlApp.Workbooks.Open("C:\xxxx\xxxx\xx\xxx\xx\xxxx\xx\xx\Excel_Raw_SNZ_DataCollectionToBeRecorded\" & fileName, True, False)
        Set ws = wb.Worksheets("lundi")
        ws.Activate
            'Selection de la zone a importer
            sRange = "A1" & iStart & ":X7" & ws.UsedRange.Rows.Count
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "TEMP_IMPORT_Lundi", "C:\xxxx\xxxx\xx\xxx\xx\xxxx\xx\xx\Excel_Raw_SNZ_DataCollectionToBeRecorded\" & fileName, False, "lundi!"
'enregistrement du workbook
'wb.Save
'fermeture sans sauver
wb.Close False

J'ai pensé qu'en ajoutant 1 à la colonne A et 7 à la colonne X devrait suffire pour selectionner uniquement cette zone, mais cela ne fonctionne pas, il me prend toutes les lignes des colonnes de A à X

Code :

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

sRange = "A1" & iStart & ":X7" & ws.UsedRange.Rows.Count

Code d'origine, mais qui me prend toutes les colonnes:

Code :

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

sRange = "A" & iStart & ":X" & ws.UsedRange.Rows.Count

Si quelqu'un a une idée je suis preneur!!

Merci
Totor

[tee_grandbois]

bonjour,
il suffit de se pencher un peu sur l'aide en ligne de la commande TransferSpreadsheet: ici
il y a même un exemple:

Code :

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

1
2
DoCmd.TransferSpreadsheet acImport, 3, _ 
 "Employees","C:\Lotus\Newemps.wk3", True, "A1:G12"

[totor92290]

Désolé!!!

Merci beaucoup

Totor