IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Retrouver le UserName


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Décembre 2016
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : Service public

    Informations forums :
    Inscription : Décembre 2016
    Messages : 24
    Par défaut Retrouver le UserName
    Bonjour,

    J'ai le chemin suivant dans ma macro

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
      Workbooks.Open Filename:="C:\Users\hpoquet-adc\Desktop\MCC TEST HPO - part4\HRA-Natures_d'arrêté-décision-XSWHI001.xls"
    Je cherche à généraliser l'ouverture de ce fichier pour que d'autre utilisateur puissent s'en servir sans modifier la macro.

    En fait je voudrais réussir à renvoyer la variable UserName à la place de hpoquet-adc.

    Cordialement

  2. #2
    Membre Expert
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Novembre 2011
    Messages
    1 503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Irlande

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Novembre 2011
    Messages : 1 503
    Par défaut
    Bonjour hadrien4789,

    Trouvé très rapidement sur le net...

    Enlève PtrSafe si tu es sur un système 32 bits.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Public Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
     
    Function OSUserName() As String 'extrait d'un code de Paul cf. http://forum.rue-montgallet.com/
    Dim Buffer As String * 256
    Dim BuffLen As Long
    BuffLen = 256
    If GetUserName(Buffer, BuffLen) Then _
    OSUserName = Left(Buffer, BuffLen - 1)
    End Function
     
    Sub CTest()
    MsgBox OSUserName
    End Sub
    Cordialement,
    Kimy

  3. #3
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    intéresses-toi à la fonction VBA.Environ(), notamment avec l'argument "USERNAME"

  4. #4
    Membre averti
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Décembre 2016
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : Service public

    Informations forums :
    Inscription : Décembre 2016
    Messages : 24
    Par défaut
    Bonjour,

    VBA.Environ() fonctionne parfaitement.

    Merci

  5. #5
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, à titre d'info
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Option Explicit
     
    Sub Liste_Variables_Environment()
    Dim sEnv As String, i As Long
        Feuil1.Cells.Clear
        i = 1
        Do
            sEnv = Environ(i)
            Feuil1.Cells(i, 1) = sEnv
            i = i + 1
        Loop Until sEnv = ""
    End Sub
    Images attachées Images attachées  

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2007] Retrouver username a partir d'un ID PC
    Par Nelmech dans le forum Access
    Réponses: 0
    Dernier message: 05/06/2015, 14h26
  2. [SERVLET] retrouver son chemin
    Par sebos63 dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 12/09/2003, 08h59
  3. Je ne retrouve pas ma SP dans Query analyser
    Par WOLO Laurent dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 14/07/2003, 12h43
  4. retrouver les compsants FASTNET sous Delphi 7
    Par fandor7 dans le forum Composants VCL
    Réponses: 4
    Dernier message: 11/06/2003, 18h11
  5. retrouver rep spéciaux windows
    Par pegase21 dans le forum API, COM et SDKs
    Réponses: 5
    Dernier message: 11/06/2003, 01h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo