[VBA-A] erreur de compilation excel->access
Je souhaite importer des colonnes excel dans une table access
j'obtient une erreur de compilation suite à ce code
Code:
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
