Discussion :

[stigma]

Bonjour,
Je sais récupérer le chemin de l'application, mais comment, en VBA, récupérer le chemin des tables liées ? Je ne sais pas si c'est possible.
Merci

[ARO]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function NomAttachement() As String
 
Dim db As DAO.Database
 
Set db = CurrentDb
 
NomAttachement = Mid(db.TableDefs("LeNomDeLaTable").Connect, 11)
 
db.Close
Set db = Nothing
 
End Function

[eperat]

Avec la propriété connect de l'objet tabledef

Exemple (dans la fenêtre de débogage) :

Code :

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

1
2
? CurrentDb.TableDefs("TBL_ELEVE").Connect
;DATABASE=C:\PIA\D_PIA.mdb

[stigma]

Merci beaucoup !!!!