Noms des polices installées [Résolu]

[Chauvety]

Bonjour,

Contexte de ma question :
J'ai écrit un petit programme VBA qui imprime une ligne par police installée, en utilisant chacune d'entre-elles, afin de visualiser l'allure des caractères obtenus avec ces polices.
En m'appuyant sur les noms des fichiers ".ttl" pour désigner les polices ça ne marche pas car ces noms ne sont pas toujours conformes au noms des polices tels qu'ils apparaîssent dans Word, Excel etc....

Question :
En VBA, comment puis-je récupérer les noms des polices de caractères installées dans le dossier c:\windows\fonts\ afin d'utiliser dans une boucle l'instruction :
Printer.FontName = NomPolice
afin d'imprimer des lignes avec des polices différentes de l'une à l'autre.
NomPolice étant une variable locale initialisée préalablement grâce à la liste des noms en question.

Merci d'avance pour votre aide

yves.chauvey@cegetel.net

[SilkyRoad]

bonjour

J'espère que ce lien pourra t'aider

http://excel.developpez.com/sources/...ion#FontPolice


michel