[AC-2007] Ajout de polices d'écriture [Résolu]

[Oxopor]

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.

[Philippe JOCHMANS]

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

Philippe

[Domi2]

Bonjour,

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

Domi2

[Philippe JOCHMANS]

Envoyé par Domi2

Bonjour,

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

Domi2

[Oxopor]

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

[Domi2]

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 ?

[Oxopor]

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.