Discussion :

[AndréPe]

Bonsoir,
Par outils/démarrage, on obtient le titre d'une l'application .

J'ai une base qui a pour titre "ECA". Elle avait auparavent le titre "EC".
A partir d'une autre application, je cherche par code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'On cherche le nom de l'application d'une base, qui sera l'abréviation retenue pour le portail
Dim appAccess As Access.Application
Set appAccess = New Access.Application
'On ouvre la nouvelle base pour trouver le nom du projet
appAccess.OpenCurrentDatabase "MAbase"
'cherche le nom de l'application obtenu en mode base de données
'par outils/démarrage/nom de l'application
abrev = appAccess.VBE.ActiveVBProject.Name
'on la referme
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
debug.print abrev

Je m'assure que c'est bien "ECA" dans outils/démarrage et je lance le code
Résultat abrev="EC" et non "ECA"

Pourquoi ?
Quel que soit le nom donné à l'application (la proximité de EC et ECA aurait pù avoir une influence), je retrouve en permanence "EC" comme titre.
Question non résolue : où peut bien se cacher ce "EC" qui réapparaît à chaque fois, même après avoir quitté Access et redémarré
Bizarre
Auriez-vous une idée des causes de ce phénomène ?
Merci
Amitiés

[Kloun]

Tu fais pas une confusion entre

Code :

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

CurrentDB.Properties("AppTitle")

et

Code :

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

appAccess.VBE.ActiveVBProject.Name

?

[AndréPe]

Merci,
Ce que je recherche, ce n'est pas le nom le nom de l'applcation d'où je lance le code, mais celui d'une autre base.
Or

Code :

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

CurrentDB.Properties("AppTitle")

donne le nom de l'application d'où je lance le code, alors que

Code :

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

appAccess.VBE.ActiveVBProject.Name

est sensé ddonner le nom de la base externe.
Mon pb reste entier.
A+

[francishop]

Bonsoir,

Voir :
Alt/F11/Outils/Propriétés de .........

Cordialement.

[LedZeppII]

Bonsoir,

Code :

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

appAccess.VBE.ActiveVBProject.Name

donne le nom du projet Visual Basic associé à la base de données.

Ce que veut dire Kloun, c'est aue "AppTitle" est une propriété d'un objet DAO.DAtabase.

Tu peux tester cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function AppTitleBase(strFullPath As String)
Dim db As DAO.Database
Dim strAppTitle As String
 
strAppTitle = "!Non défini!"
Set db = DBEngine.Workspaces(0).OpenDatabase(strFullPath, , True)
On Error Resume Next
strAppTitle = db.Properties("AppTitle").Value
On Error GoTo 0
AppTitleBase = strAppTitle
db.Close
Set db = Nothing
End Function

pour lire la propriété "AppTitle" d'une base de données.

A+

[AndréPe]

Merci à kloum, francishop et LedZeppII, qui m'ont fait comprendre ma grossière erreur : confusion entre titre du projet et titre de l'application.

Comme je souhaite mettre la base externe en référence pour pouvoir y accéder à partir de mon application, c'est donc bien "AppTitle" de la base externe qu'il faut prendre comme référence.

Une fois de plus le forum m'a sauvé !
Merci à vous tous.
Amicalement