Discussion :

[ashen]

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

[ThierryAIM]

enlève déjà les " "

Code :

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

Set wbExcel = appExcel.Workbooks.Open(Retour)

[AlainTech]

Enlève les guillemets autour de Retour.

Ca devrait aller mieux

Edit --> Zut, grillé

[ashen]

Non ce n'est pa ca, il m'indique la meme erreur

[ashen]

j'ai décidé finalement de virer toutes les lignes concernant l'application excel
est ce important?