createobject

bonjour,

mettre une référence dans OUtils/Références à Microsoft Access devrait te
permettre d'y voir plus clair sur les possibilités de xlApp si tu le déclares
comme xlApp as Access.Application et deuxièmement OpenCurrentDatabase serait
pas mal au lieu de Opendatabase.

A+

Bonjour,

Je veux ouvrir une base Access à l'aide de la commande CreateObject.
Voici mon code :

Dim xlApp As Object
Dim db

Set xlApp = CreateObject("access.application")
xlApp.Application.Visible = True
Set db = xlApp.docmd.opendatabase (mabase)

il fait une erreur 438 : propriété ou méthode non géré par cet objet.
Quelle est la bonne synthaxe ?

Merci pour votre aide.

Dominique

Bonjour,

J'ai mis une référence et j'ai changé opendatabase en opencurrentdatabase.
Le message d'erreur est toujours le même.
Un indice peut-être, c'est que je ne peux pas déclarer dim db as database.
As-tu d'autres pistes pour m'éclairer ?

Merci de ton aide
Dominique

"anomymousA" wrote:

bonjour,

mettre une référence dans OUtils/Références à Microsoft Access devrait te
permettre d'y voir plus clair sur les possibilités de xlApp si tu le déclares
comme xlApp as Access.Application et deuxièmement OpenCurrentDatabase serait
pas mal au lieu de Opendatabase.

A+

Bonjour,

Je veux ouvrir une base Access à l'aide de la commande CreateObject.
Voici mon code :

Dim xlApp As Object
Dim db

Set xlApp = CreateObject("access.application")
xlApp.Application.Visible = True
Set db = xlApp.docmd.opendatabase (mabase)

il fait une erreur 438 : propriété ou méthode non géré par cet objet.
Quelle est la bonne synthaxe ?

Merci pour votre aide.

Dominique

un truc comme ci-dessous fonctionne sasn problème sur mon PC (win NT ,
Excel et Access 2000).

Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application.9")

'Déclare le nom de la base de données et l'ouvre

nombase1 = "D:DONNEEStotomdb.mdb"
appAccess.OpenCurrentDatabase nombase1


appAccess.Application.Visible = True
'effectue la boucle sur l'ensemble des requêtes contenues dans la base de
données

Set bds = appAccess.CurrentDb

For Each qdf In bds.QueryDefs
With appAccess.DoCmd
.OpenQuery qdf.Name
.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, qdf.Name,
"D:DONNEESTAMPON" & qdf.Name & ".XLS", True
End With
Next

A+

Bonjour,

J'ai mis une référence et j'ai changé opendatabase en opencurrentdatabase.
Le message d'erreur est toujours le même.
Un indice peut-être, c'est que je ne peux pas déclarer dim db as database.
As-tu d'autres pistes pour m'éclairer ?

Merci de ton aide
Dominique

"anomymousA" wrote:

bonjour,

mettre une référence dans OUtils/Références à Microsoft Access devrait te
permettre d'y voir plus clair sur les possibilités de xlApp si tu le déclares
comme xlApp as Access.Application et deuxièmement OpenCurrentDatabase serait
pas mal au lieu de Opendatabase.

A+

Bonjour,

Je veux ouvrir une base Access à l'aide de la commande CreateObject.
Voici mon code :

Dim xlApp As Object
Dim db

Set xlApp = CreateObject("access.application")
xlApp.Application.Visible = True
Set db = xlApp.docmd.opendatabase (mabase)

il fait une erreur 438 : propriété ou méthode non géré par cet objet.
Quelle est la bonne synthaxe ?

Merci pour votre aide.

Dominique

Bonjour.

xlApp.Visible = True

Alain CROS

"Dominique MARTIN" <DominiqueMARTIN@discussions.microsoft.com> a écrit dans le message de news:
3BA1815F-985C-4F62-81E9-E4EE88D2094B@microsoft.com...

Bonjour,

Je veux ouvrir une base Access à l'aide de la commande CreateObject.
Voici mon code :

Dim xlApp As Object
Dim db

Set xlApp = CreateObject("access.application")
xlApp.Application.Visible = True
Set db = xlApp.docmd.opendatabase (mabase)

il fait une erreur 438 : propriété ou méthode non géré par cet objet.
Quelle est la bonne synthaxe ?

Merci pour votre aide.

Dominique