Discussion :

[electrosat03]

Bonjour à tous,

J'ouvre une Base Access à l'aide du code Vba, elle s'ouvre avec Access 2010 alors que si je clic directement sur le nom elle s'ouvre avec Accesss 2016

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim objAccess As Object
 
    Set objAccess = New Access.Application
 
    With objAccess
        .OpenCurrentDatabase ("C:\Doc.accdb")
        .Visible = True
        .RunCommand acCmdAppMaximize
        .Visible = True
    End With
    Set objAccess = Nothing

Comment faire pour qu'elle s'ouvre avec Access 2016, la base où se trouve le code Vba est bien en 2016

Merci

[Jean-Philippe André]

Salut,

Quand tu cliques dans les références de ton code, quelle est la version de ta librairie Access ?
Selon le nombre qui apparait 14 ou 16 tu utilises par défaut une version ou l'autre d'Access.
Access 2010 (14.0)
Access 2016 (16.0)

[electrosat03]

Salut,

J'ai bien 16.0 dans les références
Si je l'ouvre avec le code vba

Code :

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

Shell """C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE"" ""C:\Doc.accdb""", vbMaximizedFocus

Il n'y a pas de problème

Merci

[Jean-Philippe André]

Salut,
Je comprends ton passage par le shell, mais c'est pas forcément ce que tu veux non plus…

Si à la place du

Code :

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

Set objAccess = New Access.Application

tu fais juste

Code :

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

Set objAccess = Application

Car si tu es déjà en 2016, l'Application devrait l'être aussi.

Ou alors tu essaies de piloter Access depuis Excel par exemple...

[electrosat03]

Non, je veux ouvrir la table à partir d'access 2016
si je mets Application, un message d'erreur me dit que la base est déjà ouverte ????

[marot_r]

Bonjour.

As-tu actuellement les 2 versions d'Office (2010 et 2016) sur ta machine ?

Si oui, peut-être pourrais-tu ajouter la référence à Access 2010 en t'assurant qu'elle soit placée après 2016 dans la liste des références. Je crois qu'on peut.
Ça forcerai peut-être la main à Access.

Autre idée, remplacer le

Code :

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

Set objAccess = New Access.Application

par

Code :

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

Set objAccess = CreateObject("Access.Application")

A+

[electrosat03]

Oui, j'ai les 2 version d'Access su mon PC
Je ne pilote pas par Excel mais par Access 2016
Le code ne change rien, la 2° base s'ouvre avec access 2010 et ne demande pas de login et PW
Contrairement si je l'ouvre avec shell

Merci