Automatiser le chemin fichier

Bonjour à tous,

Je viens à vous afin d'obtenir un peu de votre aide.

Je dois à chaque installation d'un fichier, adapter le chemin d'accès des fichier en fonction de la session de l'utilisateur.

Const Fichier As String = "C:\Users\USER\Dropbox\TEST\Base de Données Clients\BD_Clients.xlsm"

'c'est cette partie que je voudrais adapter! je voudrais savoir s'il est possible de trouver un code permettant de trouver le nom de la session de manière automatique?

Public Onglet As String, Plage As String
Public source As Object, requete As Object

Sub extraire_données_externes()
Dim Texte_SQL As String

Set source = CreateObject("ADODB.Connection")
With source
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
Onglet = "Table_Missions$" 'dollar obligatoire"
Plage = "A1:C5000"
Texte_SQL = "SELECT * FROM [" & Onglet & Plage & "] WHERE Nom_Entreprise <>"""";"
Set requete = CreateObject("ADODB.Recordset")
Set requete = source.Execute(Texte_SQL)

End Sub



Merci à tous.

Cordialement.