Discussion :

[Rapheux]

Bonjour à tous,

J'utilise une macro depuis excel pour exporter le contenu d'une feuille excel vers access, jusque là tout vas bien ! Mais comme j'utilisé une feuille 1 (avec la macro) pour exporter une feuille 2 vers Access, je me susi dit que c'etait bête et donc pourquoi pas faire l'importe directement depuis Access.

J'ai installé la Microsft Excel 12.0 Object Librairy, et là depuis j'ai un problème sur cette ligne :

Code :

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

1
2
3
4
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Open(Application.GetOpenFilename)

Cela me retourne comme erreur : Membre de méthode ou de données introuvables.

Liste des librairies :
Microsft Access 12.0 Object Librairy
Microsft Excel 12.0 Object Librairy
Microsoft office 12.0 Access Database Engine Object Librairy

Je rappelle que ma macro fonction très bien sous Excel (Excel export vers Access) et je voudrais faire un Access import Excel

Cordialement,
Rapheux

[Arkham46]

bjr,

Application désigne l'application Access (pas de méthode GetOpenFilename je pense pour Access).

Essayez avec xlApp à la place de Application pour appeler la méthode de l'application Excel.

[Rapheux]

Problème résolue !

C'était exactement cela, merci beaucoup Arkham46

Bonne fin de journée.

Cdlt,
Rapheux

[Arkham46]

Problème résolue !

merci de le signaler en cliquant sur le bouton "Résolu" en bas de la discussion

[JIPIONE]

bonjour,

Je rapatrie souvent des données excel dans access et j'utilise par exemple:

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
Sub Monexcel(FichierXLS As Variant)
 
Dim Mxls As Object
Set Mxls = GetObject(FichierXLS)
Mxls.Application.Visible = True
Mxls.Parent.Windows(1).Visible = True
Mxls.Application.WindowState = xlMinimized
Mxls.Application.DisplayAlerts = False
 
....
 
Mxls.Application.Quit
Set Mxls = Nothing
 
End Sub

Si cela peut t'aider

A+


JIPIONE