recherche le nom utilisateur PC

marco69 · 21 Novembre 2005

je cherche à enregistrer automatiquement dans un répertoire sur le bureau de l'utilisateur de différent client.visiblement entre windows XP, 2OOO et autres le chemin est différent. je pensais passé par le nom de l'utilisateur de l'ordi (maispas d'excel).
du type utilisateur\\bureau\\répertoire\\ est ce possibe
merci d'avance

myDearFriend! · 21 Novembre 2005

Bonsoir marco69,

Je ne sais pas si ça répondra entièrement à ta demande... Pour trouver le chemin du bureau Windows :

Sub CheminBureau()
      Const Cible = &H19        'Desktop
      Dim objShell As Object
      Dim objFolder As Object, objFolderItem As Object
      Set objShell = CreateObject('Shell.Application')
      Set objFolder = objShell.Namespace(Cible)
      Set objFolderItem = objFolder.Self
      MsgBox objFolderItem.Path
End Sub

SOURCE : Les Pages Wiki de MichelXLD (page 5) à consulter absolument !

Cordialement,

marco69 · 22 Novembre 2005

merci myDearfriend

la macro a bien fonctionné mais je ne suis pas sure d'arriver à la faire fonctionné avec ma macro à suivre!
encore merci

recherche le nom utilisateur PC

marco69

Guest

myDearFriend!

XLDnaute Barbatruc

marco69

Guest

Discussions similaires