Repertoire Systéme-Fonts-Ajout fichier

Question

J'ai cr&#233;er ce petit bout de code afin de copier un .ttf vers le repertoire FONTS de Windows. Normallement, ce code se trouvera sur un serveur ou sur le disque dur d'un PC avec le .ttf. 
Il fonctionne correctement quand je suis logger sur mon ordi en adminstrateur, la copie se fait correctement. 
Mais lorsque je fais la meme manip sur un autre compte, le fichier n'est apparament pas copi&#233;, il faut que je ferme la session, que j'ouvre la session administrateur (la police que j'avais ins&#233;r&#233; av l'autre compte est l&#224;) et que je rouvre ma session Utilisateur, ppour la voir apparaitre... 
Comme si je ne pouvais pas avoir acc&#233;s &#224; ma font sans que l'administrateur est &#233;t&#233; sur son compte.... 
Comment faire pour rajouter un font depuis n'importe quel compte
MERCI DE VOTRE AIDE 

Voici le code que j'ai mis en place:

Private Sub Command1_Click() 

Dim lng As Long 
Dim strWindowsDir As String 
Dim lngSize As Long 

'Formate la chaine de caract&#233;re avec des blancs 
strWindowsDir = String$(255, " ") 

'Appel de la fonction GetWindowsDirectory qui donne le rep systeme du poste 
lng = GetWindowsDirectory(strWindowsDir, Len(strWindowsDir)) 

strWindowsDir = RTrim$(strWindowsDir) 
'C:\Windows\ 
strWindowsDir = Left$(strWindowsDir, Len(strWindowsDir) - 1) & "" 
MsgBox strWindowsDir 
        
If Not (Dir$(strWindowsDir & "fonts\3of9.ttf")) <> "" Then 

   FileCopy App.Path & "\3of9.ttf", strWindowsDir & "Fonts\3of9.ttf" 

End If 

End Sub

mythic_kruger · Answer

Il faut &#234;tre logg&#233; en tant qu'administrateur.

Repertoire Systéme-Fonts-Ajout fichier

1 réponse

Discussions similaires