Ajout de polices d'écriture

Bonjour,

Je voudrais savoir s'il était possible d'ajouter une police d'écriture à un projet pour ne pas être obligé de l’installer sur les postes utilisant ce dernier.

Merci.

Bonjour

Je ne pense pas, Access prend les polices sur le PC, contrairement à PowerPoint où on peut faire accompagner la police.

Si ta police est dans des zones fixes tel que des étiquettes tu peux faire un remplacement par des images.

Le catalogue de Police sur un PC est suffisamment important, ton besoin est-il si important que cela :koi:

Philippe

Bonjour,

C'est possible. Voir cette contribution d'Arkham46.

Domi2

Citation:

---

Envoyé par Domi2

Bonjour,

C'est possible. Voir cette contribution d'Arkham46.

Domi2

---

:hola:

Bonjour,
Merci pour vos réponse, c'est tout à fait ce que je recherche.

En revanche, j'ai quelques difficultés pour mettre en œuvre:

J'ai créé un module 'Police_Ecriture' où j'ai mis le code source:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Compare Database Option Explicit   Private Declare Function AddFontResourceEx Lib "gdi32" Alias "AddFontResourceExA" (ByVal lpszFilename As String, ByVal fl As Long, ByVal pdv As Long) As Long Private Declare Function RemoveFontResourceEx Lib "gdi32" Alias "RemoveFontResourceExA" (ByVal lpszFilename As String, ByVal fl As Long, ByVal pdv As Long) As Long Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const FR_PRIVATE = &H10   Public Function AddFontFromFile(pFile As String) As Boolean AddFontFromFile = (AddFontResourceEx(pFile, FR_PRIVATE, 0) > 0) End Function Public Function RemoveFontFromFile(pFile As String) As Boolean RemoveFontFromFile = (RemoveFontResourceEx(pFile, FR_PRIVATE, 0) <> 0) End Function

---

Ensuite, un fichier fonts dans le dossier où ce trouve ma base et j'ai ajouté ma police (ma base de donnée est sur un clé usb).
Et pour finir, une macro 'AutoExec' ayant comme action 'ExécuterCode' et comme code :

Code:

---

AddFontFromFile (CurrentProject.Path & "\fonts\Rina.ttf")

---

Lorsque je lance ma base, la macro s'exécute mais échoue 'Une erreur est survenue lors de la compilation. Le module Visual Basic comporte une erreur de syntaxe.'

La démarche me parait correct donc je pencherais plus sur un problème de chemin d'accès à la police.

Qu'en pensez vous?

Cordialement

Citation:

---

Envoyé par Oxopor

la macro s'exécute mais échoue 'Une erreur est survenue lors de la compilation.

---

Et tu as compilé ? Tu n'as aucune erreur ?

Le problème venait de la désactivation des macros au démarrage; et même après les avoir activées, une fois sur deux ça ne fonctionnait pas.
Je ne c'est pas si c'est très sécurisé, mais j'ai changé mes préférences Access de démarrage pour activer toutes les macros; et plus de problème.

Merci pour vos réponses et pour ce tuto très efficace.