Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 412 fois - Téléchargée 42 fois
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Function GetEnvVar(ByVal VarName As String) As String Dim sVar As String, lVar As Long lVar = 2048 '(ceci représente le nombre max de charactères à récupérer...) sVar = String(lVar, 0) lVar = GetEnvironmentVariable(VarName, sVar, lVar) GetEnvVar = Left(sVar, lVar) End Function
5 avril 2005 à 16:05
La version proposée par mWaAtR est super :-)
Pour info, en ce qui concerne le commentaire de Skywalker13 je l'utilise de la façon ce-dessous :-)
Bonne prog à tous :-)
For i = 1 To 100
Var = Environ(i)
env = env & Chr$(10) & Var
If Var = "" Then Exit For
Next i
MsgBox UCase(env) ' msgbox est mentionné à titre exemplatif :-)
30 oct. 2004 à 19:08
Super ca vaut 10/10 pour moi ;)
29 mars 2002 à 18:27
USERNAME étant une variable d'environnement...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.