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
Pour vos questions concernant Power BI, Access, Word, Power point, Outlook, Microsoft project,... et les tableurs alternatifs tels que Google Sheets et LibreOffice Calc
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