Microsoft 365 Variable dans Gestionnaire table liée - Access

[Dymouille]

Hello !

j'ai une base access qui est utiliser par plusieurs personnes, le problème c'est que pour chaque personne le chemin des Excels liée est unique,
j'aimerais savoir si c'est possible de mettre une variable dans le chemin d'un fichier dans le gestionnaire de table liée sous Access,
j'ai essayé avec le

Environ("USERNAME")

mais ca n'a pas l'air de marcher,

si vous avez des idées, merci !

 

[Hasco]

Bonjour,

C'est plus une question ACCESS qu'excel.
Voir :

Autres applications

Pour vos questions concernant Power BI, Access, Word, Power point, Outlook, Microsoft project,... et les tableurs alternatifs tels que Google Sheets et LibreOffice Calc

www.excel-downloads.com

Cordialement

 

[p56]

Bonjour à tous,
S'il est question de retrouver uniquement la lettre d'un lecteur réseau c'est possible.
Par exemple si pour un utilisateur le chemin est du genre :
F:\dossier_niv1\dossier_niv2\lefichierexcel.xlsx
et pour un autre utilisateur le chemin devient :
H:\dossier_niv1\dossier_niv2\lefichierexcel.xlsx
Il suffit de scanner les lecteurs dispo à partir du poste de travail comme ceci :

Sub Test()
    MsgBox CheminP56("\dossier_niv1\dossier_niv2\") & "lefichierexcel.xlsx"
End Sub


Function CheminP56(Rep As String) As String ' code P56
Dim FSO As Object, Drv As Object

    On Error Resume Next
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each Drv In FSO.Drives
        If Drv.IsReady Then
            If ExisteRep(Drv.DriveLetter & ":" & Rep) Then
                CheminP56 = Drv.DriveLetter & ":" & Rep
            End If
        End If
    Next
    Set FSO = Nothing
    Set Drv = Nothing
End Function


Function ExisteRep(NTtk As String) As Boolean ' code P56
    On Error Resume Next
    ExisteRep = GetAttr(NTtk) And vbDirectory
End Function

Si aucun chemin valide n'est trouvé, la fonction principale renvoie une chaine vide
Nb : ce code est fonctionnel sur Access et aussi sur Excel, Word, etc ... (sur PC, mais pas sur Mac)
P56