Instal de police écriture

[Eric K]

Bonjour le forum !

J'aimerai savoir 'il est possible d'installer une police d'écriture sur un ordinateur, lors du chargement d'une application sur un ordinateur ??

J'ai en fait une application qui est sur un disque partagé. Ma police d'écriture CS SYMBOL 2 ce trouve dans un des répertoire de ce disque.

Je souhaite en fait que lorsqu'un utilisateur ouvre l'application, l'application vérifie si la police est installée et si elle ne l'est pas, elle l'installe!!!!!!

Facile à dire mais peut être impossible à réaliser inch: !

J'attend vos commentaires sur ce sujet!!!!!

Merci !

E

 

[Shining Hawk]

Salut Eric,

Tu peux essayer de mettre ce bout de code:

Public Sub TestPolice()
Dim fso As FileSystemObject
Dim fichier As String

Set fso = CreateObject('Scripting.FileSystemObject')
fichier = fso.GetSpecialFolder(0).Path & '/fonts/nom_police.ttf'

If fso.FileExists(fichier) Then
MsgBox 'La police est présente sur ce poste.'
Else
' copie du fichier ...
MsgBox 'La police va être installé sur le poste.'
Name chemin_de_ta_police_a_copier As fichier
End If
End Sub

J'ai pas testé mais ca doit marcher...
Bon courage
@+

NB: il faut inverser les '/' (mais ils n'apparaissent pas dans le forum sinon)

Message édité par: shining hawk, à: 11/08/2005 17:30

 

[Eric k]

Bonjour et merci beaucoup shining ! Par contre, concernant la police! Quelle est l'extension du fichier police ?
Car dans Name ton_chemin_de_fichier_source As fichier, je suppose que s'est le lien complet avec le nom et l'extention ???

 

[Shining Hawk]

T'as tout juste ... l'extension des polices est .ttf

il faut donc mettre ton_chemin_de_fichier_source.ttf

Exemple: tu remplaces ton_chemin_de_fichier_source par 'R:/mes polices/mapolice.ttf'

 

[Eric]

Re

Encore une chose, ça bloque à cause du FileSystemObject qu'il ne recconnait pas ! est-ce une autre fonction !

 

[Shining Hawk]

il existe deux solutions:

- Soit tu ajoutes une référence à ton classeur. Dans le VBE, menu Outils/Références, tu coches Windows Script Host Object Model

- Soit tu enlèves la ligne de déclaration (Dim fso As FileSystemObject)

Et si si tu n'aimes vraiment pas le FSO, tu peux le remplacer par un objet Application.FileSearch...

Bonne soirée
@+