Discussion :

[franckb74]

Bonjour,
Je stock dans un répertoire des fichiers qui sont liés à une base.
Mais ce repertoire va être amené à changer de place et tous mes liens seront alors rompus.

La solution de stocker ce répertoire dans le même repertoire que celui de la base access n'est helas pas possible, je sais que cette solution résoudrait tous les problèmes puisque lorsque l'on déplace le rep de la base dans lequel est stocké un rep contentant des fichiers liés, les liens sont conservés.

Je pense qu'il existe un code VBA qui permet de mettre à jour l'ensemble des liaisons lorsqu'on déplace un rep contenant des fichiers liés à une base.

En vous remerciant pour votre aide
Franck

[User]

Bonjour,

Oui c'est possible, d'ailleurs il y a du code disponible sur Dvp...

Ce que tu peux faire c'est créer une fonction VBA dans un module indépendant :

Code :

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

1
2
3
4
5
6
Public Function NouveauChemin(AncienChemin As String, NouveauRepertoire As String) As String
 
   t = Split(AncienChemin, "\")
   NouveauChemin = NouveauRepertoire & "\" & t(UBound(t))
 
End Function

Et après tu utilises cette fonction dans une requête mise à jour ayant pour paramètre [NouveauRepertoire]:

Code :

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

UPDATE LaTable SET Lien = NouveauChemin([Lien],[NouveauRepertoire]);

Ici LaTable désigne ta table contenant les liens et Lien désigne le champ où tu stockes tes liens.

A+