Bonjour le forum
Suite récupération de code pour relier 2 base de donnée, je cherche à le modifier afin de pouvoir ouvrir la boite de dialogue de windows afin de choisir le chemin et la base si une modification du chemin a été faite.

Ci joint le code:
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
36
37
38
39
40
41
42
43
Function RefreshLinks() As Boolean
Dim collTbls As Collection
Dim i As Integer
Dim strTbl As String
Dim dbCurr As Database
Dim dbLink As Database
Dim tdfTables As TableDef
Dim strBeFile As String
Dim collTables As New Collection
Dim tdf As TableDef
Dim strMsg As String
 
    Set dbCurr = CurrentDb
    dbCurr.TableDefs.Refresh
 
    For Each tdf In dbCurr.TableDefs
        With tdf
            If Len(.Connect) > 0 Then
                    collTables.Add Item:=.Name & .Connect, Key:=.Name
            End If
        End With
    Next
    Set collTbls = collTables
 
'   strBeFile = CurrentProject.Path & "\Data\TestData.mdb"
 
     Set dbLink = DBEngine(0).OpenDatabase(strBeFile)
 
 
 
     For i = collTbls.Count To 1 Step -1
            strTbl = Left$(collTbls(i), InStr(1, collTbls(i), ";") - 1)
                Set tdfTables = dbCurr.TableDefs(strTbl)
                With tdfTables
                    .Connect = ";Database=" & strBeFile
                    .RefreshLink
                End With
      Next
 
        strMsg = "Reinitialisation liaison " & vbNewLine & vbNewLine
        strMsg = strMsg & "• La mise à jour des liaisons de l' application a été réalisé avec succès." & vbNewLine
        MsgBox strMsg, vbInformation, "Liaisons tables"
End Function
Merci d' avance pour toute aide
Aladin