Je souhaite importer des colonnes excel dans une table access
j'obtient une erreur de compilation suite à ce code


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
Private Sub Import_Click()

'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim Retour As String

   Retour = InputBox("Entrez l'adresse du fichier Excel à importer ? ",
   "Importation Excel", "H:\Pife\Base de données\pcs fabriquées.xls", 100, 100)
   
   If Retour = "" Then Exit Sub

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("Retour")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)


'Selectionner la colonne de A
Sheet.Columns("A").Select
'Copier la colonne de A
Sheet.Columns("A").Copy
et voici l'erreur que j'obtiens
"erreur d'exécution 91
Variable objet ou variable bloc With non définie"

et il s'arrete sur la ligne
Set wbExcel = appExcel.Workbooks.Open("Retour")

Merci d'avance