Discussion :

[kdestine]

Bonjour,

C'est encore moi. Décidément, je n'ai plus de chance avec excel/access depuis peu.

Alors je vous explique mon problème: je veux importer des données d'un fichier excel vers une table access. J'ai créé ma table en tenant compte des étiquettes des colonnes du fichiers excel. Seulement, j'ai l'erreur suivante:

Le champ 'F1' n'existe pas dans la table destination "GPRS_BSC_Temp"

.

Voici le code associé:

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
Private Sub MAJ()
Dim nameFile As String, periode As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
 
nameFile = loadXLS
 
If StrComp(nameFile, "") = 0 Then
    Exit Sub
End If
 
 
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(nameFile)
 
periode = xlBook.Worksheets("Matrix sheet").Cells(1, 1).value
xlBook.Worksheets("Matrix sheet").Cells(1, 1).value = "BSC"
xlBook.Save
xlBook.Close
 
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "GPRS_BSC_Temp", nameFile, True, "A1:I100"
 
Set xlBook = xlApp.Workbooks.Open(nameFile)
xlBook.Worksheets("Matrix sheet").Cells(1, 1).value = periode
xlBook.Save
xlApp.Quit
 
Set xlBook = Nothing
Set xlApp = Nothing
 
End Sub

J'ai joint à ce code le fichier Excel concerné et la structure de la table associée.

Merci d'avance,