Microsoft 365 Variable dans Gestionnaire table liée - Access

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dymouille

XLDnaute Nouveau
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
VB:
Environ("USERNAME")
mais ca n'a pas l'air de marcher,

si vous avez des idées, merci !
 
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 :
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
561
Retour