Discussion :

[BenoitL77]

Bonjour cher forum,

Dans ma macro, j'ai ce petit bout de code qui permet d'ouvrir un fichier qui est dans "mes documents".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
nom_fichier = "C:\Users\benoitl\Documents\Chiffrage_TA_local\Matrice_Chiffrage_TA.xlsm"
    Workbooks.Open Filename:=nom_fichier

ça marche très bien, mais je voudrais remplacer le "benoitl" par une variable qui serait le nom d'utilisateur, afin que la macro fonctionne aussi chez mes collègues.
Variable définie "as string" je suppose.

J'ai balayé les FAQ, le forum où j'ai trouvé différentes méthodes pour trouver le Username.
Impossible d'ailleurs d'avoir un résultat avec environ("username"). J'ai le message : erreur de compilation. Projet ou bibliothèque introuvable.

Je pensais avoir trouvé mon bonheur avec un simple application.username, mais cela remonte "Benoit LEMAIRE", qui est mon nom de session/login, mais qui n'est pas le "benoitl" de mon chemin.

Ma question : comment retrouver ce "benoitl"?

Merci d'avance

[jean_2940]

essaie dans ton code la ligne suivante et regarde ce que ça fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox(environ("username"))

[Patrice740]

Bonjour,

A adapter :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
Sub test()
Dim s As Object
  Set s = CreateObject("Shell.Application")
  MsgBox s.Namespace(5).Self.Path
End Sub

[BenoitL77]

Merci à vous.
Définitivement, Environ ne marche pas. Et je ne vois pas pourquoi....

Par contre la solution de Patrice fonctionne impec.
pb résolu
Merci