Appli FE Access : emplacement approuvé en Remote Desktop et automation Word
Bonjour
Mon client veut mettre à disposition une base Access partagée (frontale) à l'aide d'un écran déporté (connexion RDP avec un raccourci sur le bureau de chaque utilisateur). Le problème que l'on rencontre est que la barre de notification (jaune) demande d'activer les macros en affichant une erreur 2001 et avec la fenêtre de confirmation de désactivation des macros (pas d'autre choix) pour enfin pouvoir activer le contenu.
Alors d'accord, une fois qu'il a appuyé, c'est bon, il n'a plus le message mais c'est pas élagant et surtout ça fait peur et ils s'osent pas cliquer.
En plus, à la première utilisation, comme c'est une base frontale et qu'elle a plusieurs dizaines de tables attacahées, il faut cliquer autant de fois sur l'alerte de sécurité qu'il y a de tables ; du coup, ils en ont marre et cliquent sur Annuler et du coup, la moitié des tables n'est pas rattachée et du coup, l'appli plante.
Si il va jusqu'au bout, y a aussi un autre problème : comme l'application imprime des documents avec Word en automation, ça lève aussi une erreur qui concerne le même sujet d'emplacement approuvé.
A votre avis existe t-il une solution pour que cette barre d'alerte n'apparaisse plus ou plutôt jamais ?
En fait, faire en sorte que l'application soit approuvée pour tous les utilisateurs qui se connectent, quels qu'ils soient.
Merci de votre aide.
Appli FE Access : emplacement approuvé en Remote Desktop et automation Word
Bonjour,
J'ai rencontré un problème du même type (si j'ai bien compris ton souci), que j'ai effectivement résolu en approuvant des emplacements en base de registres au démarrage de l'appli avec ce Sub:
Code:
1
2
3
4
5
6
7
8
9
10
11
| Sub EmplacementAppliApprouve()
On Error GoTo err:
Const KEY As String = "HKCU\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\Location12\"
Dim s As String
s = Nz(DLookup("Chemin", "Chemins", "Fonction='Racine Application'"), "C:\MonAppli")
WriteIntoReg KEY, "AllowSubFolders", 0, "REG_DWORD" '0 = n'autorise pas les sub_folders
WriteIntoReg KEY, "Date", Date, "REG_SZ"
WriteIntoReg KEY, "Description", "Mon Appli", "REG_SZ"
WriteIntoReg KEY, "Path", s, "REG_SZ"
err:
End Sub |
Bien sûr tu modules ce code en fonction de ta version d'Access (rouge gras) et de ton appli (bleu gras)
Bonne continuation
