Nom de la police

[Pedro]

Bonjour le forum...

Je cherche comment obtenir le nom de la police utilisée dans une cellule mais pas "Arial" mais c:\...\arial.ttf.

Cela aurait été trop simple autrement....

Précision, il s'agit d'un développement VBA
D'avance merci.

Pedro

 

[Papy Novice]

Bonjour Pedro
J'ai trouvé ceci sur le web, en espérant que ca te conviendras.
*****
Attribute VB_Name = "PolicesUtilisees"

'> Comment retrouver les polices utilisées dans un doc excel ?

Sub Roxane_modif()
'Jean-François Bron, mpfe, sur une idée de ChrisV

For Each cell In ActiveSheet.UsedRange
If Not IsEmpty(cell) Then
cell.Select
'On explore chaque caractère un par un
For I = 1 To Len(cell.Value)
'On garde une trace de l'ancienne couleur de caractère
a = cell.Characters(I, 1).Font.Color
'On colorie en rouge le caractère courant...pour ne pas se perdre...
cell.Characters(I, 1).Font.Color = 255
MsgBox cell.Characters(I, 1).Font.Name
cell.Characters(I, 1).Font.Color = a
Next I
End If
Next
MsgBox "Y'en à plus..."

End Sub
*****
Cordialement à toi
Jean

 

[Pedro]

Salut,

Merci de ta réponse mais la propriété font.name renvoie "arial" et j'ai besoin du nom réel du fichier de police arial.ttf avec le chemin éventuellement.
autre exemple: "Times New Roman" pour "times.ttf"

Merci et A+
Pedro