cs_fraisa
Messages postés3Date d'inscriptionvendredi 24 septembre 2004StatutMembreDernière intervention24 septembre 2004
-
24 sept. 2004 à 11:58
cs_fraisa
Messages postés3Date d'inscriptionvendredi 24 septembre 2004StatutMembreDernière intervention24 septembre 2004
-
24 sept. 2004 à 17:41
je souhaite ouvrir un modele excel mais xp utilise un nom de profile qui change avec chaque utilisateur (les modeles sont dans mes documents) je n'arrive pas a l'ouvrir ni avec userprofile ni avec homepath
quelle est la soluce
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 24 sept. 2004 à 13:40
Ce que tu peux faire c'est récupérer le nom de l'utilisateur avec :
'Dans Général
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
'puis dans Fom_Load
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
UName = Left$(sBuffer, lSize)
p1 = InStr(1, UName, Chr(0))
UNameF = Mid(UName, 1, p1 - 1)
UNameF est le nom de ton utilisateur, UNameF est 'nettoyé' des caractère supperflus.
Ensuite il ne te reste plus qu'à complèté le chemin d'accès avec :
dim Chemin as string
Chemin="c:\docume~1" & UNameF
Chemin= Chemin & "\Applic~1\Micros~1\Modeles"
Et là tu est sûr de tomber dans le directory des modèles Office de l'utilisateur en cours. Sinon tu peux coller ton modèle à Tous les utilisateur avec :
SebOfBorg
Messages postés94Date d'inscriptiondimanche 29 septembre 2002StatutMembreDernière intervention26 août 2009 24 sept. 2004 à 17:24
Bonjour,
En faisant cela vous aurez le Login de connection mais pas le repertoire de travail !
2 Solutions s'offrent a toi :
Private Declare Function GetUserProfileDirectory Lib "userenv.dll" Alias "GetUserProfileDirectoryA" (ByVal hToken As Long, ByVal lpProfileDir As String, lpcchSize As Long) As Boolean
(Pour l'utilisation voir dans les sources ou sur www.allapi.net
Soit Mettre le repertoire Mes Documents ailleurs et le même pour tout le monde (click droit sur le raccourci et.)
Bon courage
A plu
SebOfBorg
Vous n’avez pas trouvé la réponse que vous recherchez ?