Comment utilisé une police et qu'elle soit charger avec le fichier

mutzik

XLDnaute Barbatruc

• 24 Janvier 2012

• #2

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

bonjour,

ce sont les polices windows qui sont utilisées, excel n'y est pour rien puisqu'il se sert des polices windows
si tu veux ajouter une police, il ne me semble pas avoir vu de code VBA sur ce site qui le fasse

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 24 Janvier 2012

• #3

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

Bonjour Blackhayes, Bonjour Mutzik,

Il me semble que c'est possible avec Word, avec Powerpoint, mais je ne crois pas que ce soit disponible avec Excel.
Peut-être prévoir la copie des polices en automatique par VBA ?

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 24 Janvier 2012

• #4

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

bonjour Mutzik, TotoTiTi2008

oui je sais, et je ne dit pas qu'excel est en faute, mais peut etre existe un moyen d'integrer une police via vba, dans "thisworkbook" par exemple, je ne sais pas.

il m'est deja arrivé d'utilisé des programme dont je n'avais pas la police sur mon pc, et elle s'affichait quand meme ??

Merci quand meme pour ta reponse,

 

Dernière édition: 24 Janvier 2012

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 24 Janvier 2012

• #5

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

Bonjour tout le monde,

Voici le code dont je me sers en VBA pour charger une police non installée sur le poste :

Code:

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 Const FR_PRIVATE = &H10

Sub AddFontFromFile(pFile As String)
    AddFontFromFile = (AddFontResourceEx(pFile, FR_PRIVATE, 0) > 0)
End Sub

Sub RemoveFontFromFile(pFile As String)
    RemoveFontFromFile = (RemoveFontResourceEx(pFile, FR_PRIVATE, 0) <> 0)
End Sub

Pour charge une police, il te suffit par exemple de faire :

Code:

Call AddFontFromFile("C:\Font\Arial.TTF")

à l'ouverture de ton fichier, sans oublier de la décharger en sortant de ton fichier avec :

Code:

Call RemoveFontFromFile("C:\Font\Arial.TTF")

Bonne journée

 

Dernière édition: 24 Janvier 2012

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 24 Janvier 2012

• #6

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

Re,
Bonjour Geo,

Sympa le code

sans oublier de la décharger en sortant de ton fichier

Cliquez pour agrandir...

Sauf si elle était déjà installée ?

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 24 Janvier 2012

• #7

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

Sympa le code

Cliquez pour agrandir...

Oui ! Il sort de ma petite boite à outils ^^. Si tu veux utiliser cette police sur des userforms, tu peux compléter ce code avec cette procédure :

Code:

Sub AppliquerPolice(USFDestination As UserForm)
   For Each Ctrl In USFDestination.Controls
       If TypeName(Ctrl) <> "Image" Then Ctrl.Font.Name = Nom_Police
   Next
End Sub

Il suffit après de rajouter :

Code:

Call AppliquerPolice(Me)

dans l'évènement Initialize de chaque userform pour appliquer cette police sur toutes tes contrôles.

Sauf si elle était déjà installée ?

Cliquez pour agrandir...

Ben si elle est déjà installée, ya pas besoin de la charger ^^ Je comprends mal ta question je crois.

Si je me souviens bien, ce code n'installe pas vraiment la police, il permet juste de "charger" une police pour pouvoir l'utiliser dans le fichier "en cours".

 

Dernière édition: 24 Janvier 2012

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 24 Janvier 2012

• #8

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

Re,

Ben si elle est déjà installée, y a pas besoin de la charger

Cliquez pour agrandir...

Oui, mais aucun moyen de le savoir à l'avance, si ? donc par défaut on va l'installer, et j'avais peur que tu finisse par supprimer une police du système de quelqu'un qui la possédait déjà

Si je me souviens bien, ce code n'installe pas vraiment la police, il permet juste de "charger" une police pour pouvoir l'utiliser dans le fichier "en cours".

Cliquez pour agrandir...

Et donc d'après ce que j'ai lu, il ne désinstalle pas vraiment la police, donc ma remarque n'avait pas lieu d'être

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 24 Janvier 2012

• #9

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

On va finir par se comprendre ^^

Effectivement, la procédure se contente de décharger la police, elle ne la supprime pas. Donc si la police était déjà installée sur le poste, aucun risque que ça la supprime.

Pour l'exemple j'avais mis le chemin "C:\Font\Arial.TTF" mais dans la réalité, je place la police dans un répertoire dédié au niveau de mon application ce qui donne : ThisWorkbook.Path & "\Polices\"

 

Vote positif 0 Vote négatif

L

lelinuxien52

XLDnaute Nouveau

• 12 Février 2012

• #10

Re : Comment utilisé une police et qu'elle soit charger avec le fichier

Bonsoir à tous,

Je viens de tomber sur ce topic extrêmement intéressant concernant l'utilisation de font sans l'installer.
Cependant, étant un grand débutant en VBA, je ne sais tout simplement pas où il est nécessaire de placer ces morceaux de code.

Pouvez-vous m'aider ?
Merci par avance !

 

Vote positif 0 Vote négatif