recherche le nom utilisateur PC

[marco69]

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!]

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]

merci myDearfriend

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