Discussion :

[AndréPe]

Bonjour,
Il ya qque temps, sur ce forum, il m'avait été donné le code suivant (qui fonctionne bien) pour obtenir le nom du projet

Code :

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

1
2
3
4
Dim appAccess As Access.Application
Set AppAccess = New Access.Application
appAccess.OpenCurrentDatabase base
appnom= appAccess.VBE.ActiveVBProject.Name

J'ai depuis tenté en vain de faire l'inverse, çàd modifier le nom du projet par code, avec

Code :

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

1
2
3
4
Dim appAccess As Access.Application
Set AppAccess = New Access.Application
appAccess.OpenCurrentDatabase base
appAccess.VBE.ActiveVBProject.Name=appnom

sans succès.

Question : cette opération est-elle possible ? Si oui, comment ?
Merci
Amitiés

[Oleff]

Bonjour,
D'après l'aide

Code :

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

Application.SetOption "Project Name", "MonProjetAccess"

[AndréPe]

Merci Oleff,
Je vais regarder cela de plus près.
Amitiés

[AndréPe]

Bonjour Oleff,
J'ai appliqué ta méthode et c'est OK, mais il ne faut pas oublier de refermer l'application après, pour que la modif soit prise en compte.
D'autre part GetOption remplace avantageusement

Code :

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

appnom= appAccess.VBE.ActiveVBProject.Name

Merci pour ton aide qui m'a permis de découvrir cette méthode qui semble pouvoir s'appliquer à toutes les options, si j'en crois l'aide Access, mais reste à trouver le terme correspondant à l'option (comme "PrjectName" pour "Nom du projet" !
Amitiés