1. #1
    Nouveau Membre du Club
    Homme Profil pro
    Responsable qualité
    Inscrit en
    mars 2012
    Messages
    192
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Responsable qualité
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2012
    Messages : 192
    Points : 38
    Points
    38

    Par défaut Modification chemin des liens hypetext liés à une base ACCESS

    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

  2. #2
    Rédacteur/Modérateur
    Avatar de User
    Homme Profil pro
    Développeur informatique en auto-entrepreneur
    Inscrit en
    août 2004
    Messages
    4 327
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique en auto-entrepreneur

    Informations forums :
    Inscription : août 2004
    Messages : 4 327
    Points : 7 678
    Points
    7 678
    Billets dans le blog
    4

    Par défaut

    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+
    Si votre problème est résolu pensez à clore la discussion en cliquant sur

    Si vous souhaitez mettre en place une gestion de planning, une gestion de stock, ventes, achats ou tout autre application Office je peux vous proposer mes services.
    Pour cela n'hésitez pas à me contacter par courriel ou mp.

    Mes tutoriels et contributions sur ma page personnelle.

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo