Discussion :

[jlboup]

*Bonjour*

Après recherches dans les FAQ, j'ai trouvé comment renvoyer un chemin d'accès par boite de dialogue utilisateur, mais pas comment "coller" ce chemin d'accès pour qu'il soit utilisé par le gestionnaire de tables liées pour mettre à jour la liaison d'une table liée déterminée, déja existante.
Dans l'idéal, l'utilisateur va sélectionner dans une boite de dialogue le fichier concerné dans l'arborescence de son dique dur, et cette sélection met à jour la liaison de la table au fichier txt sélectionné. La table liée a déja été créée avant, avec notemment le schéma d'importation de morceaux de texte séparé par des points virgules, vers des champs déterminés de la table en question.
Une variante qui m'interresserait aussi :
Sur "acceptation" de l'utilisateur, un "code" va chercher le fichier txt en question en reconnaissant la première partie de son nom (sans la date qui est ajoutée après underscore en fin de nom), el sélectionne dans le disque dur et utilise son chemin d'accès pour mettre à jour la liaison.
J'espère avoir été assez clair... Merci par avance à tous !

[nico84]

Bonsoir,

Voici un bout de code qui met a jour les liaisons dorsale/frontale à partir des infos contenues dans un fichier texte. Si j'ai bien compris tu peux t'en inspirer pour mettre à jour une liaison vers ton répertoire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'******************************* LIEN AVEC LA DORSALE
'outil de gestion de config des tables liées
'il faut un fichier planet.ini qui peut se générer avec la procedure cree_ini
Public Sub maj_liens(nouveau As Boolean)
Dim rst As Recordset
Dim vt As String 'version table
Dim FSO As New Scripting.FileSystemObject
Dim FileText As Scripting.TextStream
Dim TableEnCours As TableDef
Dim Table As String, lien As String, T As String
 
'Pour chaque table de planet.ini recrée le lien (ce n'est long que s'il change)
Set FileText = FSO.OpenTextFile(Application.CurrentProject.path & "\planet.ini")
While Not FileText.AtEndOfStream
    Table = FileText.ReadLine
    lien = Mid(Table, InStr(1, Table, "=") + 1, 99)
    Table = Left(Table, InStr(1, Table, "=") - 1)
    vt = Mid(lien, InStr(1, lien, "#") + 1, 9)
    lien = Left(lien, InStr(1, lien, "#") - 2)
 
    For Each TableEnCours In CurrentDb.TableDefs
      If TableEnCours.SourceTableName = Table Then
        T = Left(TableEnCours.connect, InStr(1, TableEnCours.connect, "BASE=") + 4) & Application.CurrentProject.path & "\" & lien
        'MsgBox TableEnCours.connect & Chr(13) & T
        If T <> TableEnCours.connect Then
          TableEnCours.connect = T
          TableEnCours.RefreshLink
   '       MsgBox "Mise à jour du lien de la table " & Table & " vers " & TableEnCours.connect
        End If
      End If
    Next
Wend
FileText.Close
Set FSO = Nothing
End Sub

[jlboup]

Merci beaucoup nico84, je vais essayer d'architecturer qq chose avec ce code, mais à mon rythme, je suis débutant !.. Je vous tiendrai au courant des éventuelles difficultés que je rencontrerai sûrement.
Si qqu'un a une solution plus globale, je suis aussi preneur !